diff options
| author | Colin Kuskie (via RT) <perlbug-followup@perl.org> | 2012-09-08 15:31:53 -0700 |
|---|---|---|
| committer | Steffen Mueller <smueller@cpan.org> | 2012-09-10 08:14:28 +0200 |
| commit | 63811f136c08caeb3164762992e5168c1d4d758d (patch) | |
| tree | 7361bfc4a382dc997b25315ed0073197411de138 /t/op/cond.t | |
| parent | 6944c18b75609b4a2cfdc17a74adaa3d26e7fa88 (diff) | |
| download | perl-63811f136c08caeb3164762992e5168c1d4d758d.tar.gz | |
Refactor t/op/cond.t to use test.pl instead of making TAP by hand
Diffstat (limited to 't/op/cond.t')
| -rw-r--r-- | t/op/cond.t | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/t/op/cond.t b/t/op/cond.t index 0a0d1e1735..acf0704580 100644 --- a/t/op/cond.t +++ b/t/op/cond.t @@ -1,10 +1,16 @@ #!./perl -print "1..4\n"; +BEGIN { + chdir 't' if -d 't'; + @INC = '../lib'; + require './test.pl'; +} -print 1 ? "ok 1\n" : "not ok 1\n"; # compile time -print 0 ? "not ok 2\n" : "ok 2\n"; +is( 1 ? 1 : 0, 1, 'compile time, true' ); +is( 0 ? 0 : 1, 1, 'compile time, false' ); $x = 1; -print $x ? "ok 3\n" : "not ok 3\n"; # run time -print !$x ? "not ok 4\n" : "ok 4\n"; +is( $x ? 1 : 0, 1, 'run time, true'); +is( !$x ? 0 : 1, 1, 'run time, false'); + +done_testing(); |