[tapx-dev] [commit][187] t/120-harness.t - use cat instead of ls ( still needs to pass though)

[ewilhelm at hexten.net]

Revision: 187
Author:   ewilhelm
Date:     2007-07-16 09:37:48 +0100 (Mon, 16 Jul 2007)

Log Message:
-----------
t/120-harness.t - use cat instead of ls (still needs to pass though)

t/execls        - bye
t/data/catme.1  - better static tap source

Modified Paths:
--------------
    trunk/t/120-harness.t

Added Paths:
-----------
    trunk/t/data/catme.1

Removed Paths:
-------------
    trunk/t/execls/

Modified: trunk/t/120-harness.t
===================================================================
--- trunk/t/120-harness.t	2007-07-16 08:03:32 UTC (rev 186)
+++ trunk/t/120-harness.t	2007-07-16 08:37:48 UTC (rev 187)
@@ -300,9 +300,9 @@
 # make sure we can exec something ... anything!
 SKIP: {
 
-    my $ls = '/bin/ls';
-    unless(-e $ls) {
-        skip "no '$ls'", 1;
+    my $cat = '/bin/cat';
+    unless(-e $cat) {
+        skip "no '$cat'", 1;
     }
 
     my $output = '';
@@ -311,16 +311,16 @@
             really_quiet => 1,
             really_quiet => 1,
             stdout       => \$output,
-            exec    => [$ls],
+            exec    => [$cat],
         }
     );
 
-    eval { $harness->runtests( 't/execls' ) };
+    eval { $harness->runtests( 't/data/catme.1' ) };
 
     my @output = split(/\n/, $output);
     pop @output;                              # get rid of summary line
     my $answer = pop @output;
-    is( $answer, 'All tests successful.', 'ls speaks tap' );
+    is( $answer, 'All tests successful.', 'cat meows' );
 }
 
 # catches "exec accumulates arguments" issue (r77)

Added: trunk/t/data/catme.1
===================================================================
--- trunk/t/data/catme.1	                        (rev 0)
+++ trunk/t/data/catme.1	2007-07-16 08:37:48 UTC (rev 187)
@@ -0,0 +1,2 @@
+1..1
+ok 1