view release on metacpan or  search on metacpan

t/TCLI.Package.Tail.t  view on Meta::CPAN

$t->ok( 'log "'.$function.' 2 test pass"');
$t->ok( 'log "'.$function.' 3 test pass"');
$t->ok( 'log "'.$function.' 4 test pass"');
$verbose = 0;
$test_master->done(31, "finish testing $function" );
$verbose = 0;

$function =  "match_times fail";

$t->ok( 'clear lines');

$t->not_ok('test add like="test fail" name="test fail" match_times=5 max_lines=5', "failed test fail $function");
$t->ok( 'log "52 test "');
$t->ok( 'log "53 test fail"');
$t->ok( 'log "54 test fail"');
$t->ok( 'log "55 test fail"');
$t->ok( 'log "56 test fail"');
$test_master->done(31, "finish testing $function" );
#$verbose = 3;

# Must clear out the lines still in the cache from the prior fail.
$t->ok('clear lines');

$function =  "simultaneously";

$t->like_body( 'test add like="test pass" name="test pass"',qr(test.*?added), "added test pass $function");
$t->is_code('', 200, "passed test pass $function");
$t->like_body( 'test add like="test 2pass" name="test 2pass"',qr(test.*?added), "added test 2pass $function");
$t->ok('', "passed test 2pass $function");
$t->ok( 'log "'.$function.' 1 test pass"');		# 1 0
$t->ok( 'log "'.$function.' 2 test 2pass"');	#   1
$test_master->done(31, "finish testing $function" );

#$verbose = 0;
$function =  "simultaneously vice-versa";


$t->ok( 'test add like="test 2pass" name="test 2pass"',"added test 2pass $function");
$t->ok( 'test add like="test pass" name="test pass"', "added test pass $function");
$t->ok( 'log "'.$function.' 1 test 2pass"');	# 1 0
$t->ok( 'log "'.$function.' 2 test pass"');		#   1
$test_master->done(31, "finish testing $function" );
#$verbose = 0;

# fail should not suck up line
$function =  "simultaneously with fail in between";
$t->ok( 'clear lines');
$t->ok( 'test add like="test pass" name="test pass"',"passed test pass $function");
$t->not_ok( 'test add like="test fail" name="test fail" max_lines=1 ',"failed test fail $function");
$t->ok('test add like="test 2pass" name="test 2pass" ', "passed test 2pass $function");
$t->ok( 'log "'.$function.' 1 test pass"');		# 1 0 0
$t->ok( 'log "'.$function.' 2 test 2pass"');	#   1 1
$test_master->done(31, "finish testing $function" );

#$t->ok('show active');
#print $test_master->get_responses('',5);
#$t->ok('show test_queue');
#print $t->get_responses('',5);

#$verbose = 0;
# the first pass should remove 4 lines before the second sees them
$function =  "max_lines simultaneously passing, line cache";
$t->ok( 'log "'.$function.' 1 test 2pass"');	# 1 1
$t->ok( 'log "'.$function.' 2 test pass"');		# 2 1
$t->ok( 'log "'.$function.' 3 test"');			# 3 2
$t->ok( 'log "'.$function.' 4 test"');			# 4 3
$t->ok( 'log "'.$function.' 5 test pass"');		# 5 3
$t->ok( 'log "'.$function.' 6 test pass"');		# 6 3
$t->ok( 'log "'.$function.' 7 test 2pass"');	# 7 4
$t->ok( 'log "'.$function.' 8 test pass"');		# 8 4
$t->ok( 'log "'.$function.' 9 test 2pass"');	#   5

#$t->ok('show line_cache');
#print $t->get_responses('',5);

$t->ok( 'test add like="test pass" name="test pass" match_times=4 max_lines=10 ', "passed test pass $function");
$t->ok( 'test add like="test 2pass" name="test 2pass" match_times=5 max_lines=10  ', "passed test 2pass $function");
$t->ok( 'log "'.$function.' 10 test 2pass"');	#   6
$t->ok( 'log "'.$function.' 11 test"');			#   7
$t->ok( 'log "'.$function.' 12 test"');			#   8
$t->ok( 'log "'.$function.' 13 test"');			#   9
$t->ok( 'log "'.$function.' 14 test 2pass"');	#   !
$test_master->done(31, "finish testing $function" );

#$verbose = 0;

$function =  "max_lines simultaneously one failing";
# failing one should not change pass2
$t->ok('clear lines');
$t->ok( 'test add like="test pass" name="test pass" match_times=4 max_lines=10', "passed test pass $function");
$t->not_ok( 'test add like="test fail" name="test fail" match_times=5 max_lines=10', "failed test fail $function");
$t->ok( 'test add like="test 2pass" name="test 2pass" match_times=5 max_lines=10 ', "passed test 2pass $function");
# numbers are lines seen by each test in order.
$t->ok( 'log "'.$function.' 1 test 2pass"');	# 1 1 1
$t->ok( 'log "'.$function.' 2 test pass"');		# 2 1 1
$t->ok( 'log "'.$function.' 3 test pass"');		# 3 1 1
$t->ok( 'log "'.$function.' 4 test pass"');		# 4 1 1
$t->ok( 'log "'.$function.' 5 test 2pass"');	# 5 2 2
$t->ok( 'log "'.$function.' 6 test 2pass"');	# 6 3 3
$t->ok( 'log "'.$function.' 7 test fail"');		# 7 4 3
$t->ok( 'log "'.$function.' 8 test fail"');		# 8 5 4
$t->ok( 'log "'.$function.' 9 test"');			# 9 6 5
$t->ok( 'log "'.$function.' 10 test pass"');	# ! 7 6
$t->ok( 'log "'.$function.' 11 test fail"');	#   8 6
$t->ok( 'log "'.$function.' 12 test 2pass"');	#   9 7
$t->ok( 'log "'.$function.' 13 test fail"');	#   ! 7
$t->ok( 'log "'.$function.' 14 test"');			#     8
$t->ok( 'log "'.$function.' 15 test"');			#     9
$t->ok( 'log "'.$function.' 16 test 2pass"');	#     !
$test_master->done(31, "finish testing $function" );


$function =  "max_lines simultaneously one failing, line cache";
# failing one should not change pass2
$t->ok('clear lines');
$t->ok( 'log "'.$function.' 1 test 2pass"');	# 1 1 1
$t->ok( 'log "'.$function.' 2 test pass"');		# 2 1 1
$t->ok( 'log "'.$function.' 3 test pass"');		# 3 1 1
$t->ok( 'log "'.$function.' 4 test pass"');		# 4 1 1
$t->ok( 'log "'.$function.' 5 test 2pass"');	# 5 2 2
$t->ok( 'log "'.$function.' 6 test 2pass"');	# 6 3 3