Security-57031.1.35.tar.gz

[apple/security.git] / Security / regressions / inc / MyHarness.pm

diff --git a/Security/regressions/inc/MyHarness.pm b/Security/regressions/inc/MyHarness.pm
new file mode 100644 (file)
index 0000000..781b828
--- /dev/null
+++ b/Security/regressions/inc/MyHarness.pm
@@ -0,0 +1,29 @@
+use warnings;
+use strict;
+
+package MyStraps;
+use base qw( Test::Harness::Straps );
+ 
+sub _command_line {
+    my $self = shift;
+    my $file = shift;
+
+    $file = qq["$file"] if ($file =~ /\s/) && ($file !~ /^".*"$/);
+    my $line = "$file";
+
+    return $line;
+}
+
+sub _default_inc {
+    return @INC;
+}
+ 
+package MyHarness;
+use base qw( Test::Harness );
+
+#my $Strap = MyStraps->new();
+$Test::Harness::Strap = MyStraps->new();
+ 
+sub strap { return $Test::Harness::Strap }
+ 
+1;