Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libtest-simple-perl / libtest-simple-perl-0.80 / t / reset.t

diff --git a/dev/i386/libtest-simple-perl/libtest-simple-perl-0.80/t/reset.t b/dev/i386/libtest-simple-perl/libtest-simple-perl-0.80/t/reset.t
new file mode 100644 (file)
index 0000000..5a7b07f
--- /dev/null
+++ b/dev/i386/libtest-simple-perl/libtest-simple-perl-0.80/t/reset.t
@@ -0,0 +1,89 @@
+#!/usr/bin/perl -w
+
+# Test Test::Builder->reset;
+
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+        chdir 't';
+        @INC = ('../lib', 'lib');
+    }
+    else {
+        unshift @INC, 't/lib';
+    }
+}
+chdir 't';
+
+
+use Test::Builder;
+my $tb = Test::Builder->new;
+
+my %Original_Output;
+$Original_Output{$_} = $tb->$_ for qw(output failure_output todo_output);
+
+
+$tb->plan(tests => 14);
+$tb->level(0);
+
+# Alter the state of Test::Builder as much as possible.
+$tb->ok(1, "Running a test to alter TB's state");
+
+my $tmpfile = 'foo.tmp';
+
+$tb->output($tmpfile);
+$tb->failure_output($tmpfile);
+$tb->todo_output($tmpfile);
+END { 1 while unlink $tmpfile }
+
+# This won't print since we just sent output off to oblivion.
+$tb->ok(0, "And a failure for fun");
+
+$Test::Builder::Level = 3;
+
+$tb->exported_to('Foofer');
+
+$tb->use_numbers(0);
+$tb->no_header(1);
+$tb->no_ending(1);
+
+
+# Now reset it.
+$tb->reset;
+
+my $test_num = 2;   # since we already printed 1
+# Utility testing functions.
+sub ok ($;$) {
+    my($test, $name) = @_;
+    my $ok = '';
+    $ok .= "not " unless $test;
+    $ok .= "ok $test_num";
+    $ok .= " - $name" if defined $name;
+    $ok .= "\n";
+    print $ok;
+    $test_num++;
+
+    return $test;
+}
+
+
+ok( !defined $tb->exported_to,          'exported_to' );
+ok( $tb->expected_tests == 0,           'expected_tests' );
+ok( $tb->level          == 1,           'level' );
+ok( $tb->use_numbers    == 1,           'use_numbers' );
+ok( $tb->no_header      == 0,           'no_header' );
+ok( $tb->no_ending      == 0,           'no_ending' );
+ok( fileno $tb->output         == fileno $Original_Output{output},    
+                                        'output' );
+ok( fileno $tb->failure_output == fileno $Original_Output{failure_output},    
+                                        'failure_output' );
+ok( fileno $tb->todo_output    == fileno $Original_Output{todo_output},
+                                        'todo_output' );
+ok( $tb->current_test   == 0,           'current_test' );
+ok( $tb->summary        == 0,           'summary' );
+ok( $tb->details        == 0,           'details' );
+
+$tb->no_ending(1);
+$tb->no_header(1);
+$tb->plan(tests => 14);
+$tb->current_test(13);
+$tb->level(0);
+$tb->ok(1, 'final test to make sure output was reset');