From 63811f136c08caeb3164762992e5168c1d4d758d Mon Sep 17 00:00:00 2001 From: "Colin Kuskie (via RT)" Date: Sat, 8 Sep 2012 15:31:53 -0700 Subject: [PATCH] Refactor t/op/cond.t to use test.pl instead of making TAP by hand --- t/op/cond.t | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/t/op/cond.t b/t/op/cond.t index 0a0d1e1..acf0704 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(); -- 2.7.4