Fix TAP format issues in unit tests

Removed duplicate test plan statements that were causing 'More than one plan
found in TAP output' errors:
- Fixed print "1..N\n"; statements that weren't caught by initial conversion
- Removed all variations of manual test plan output
- Tests now only output plan via done_testing() from Test::More

Fixed 32 test files with TAP format issues.

Note: These tests must be run with jperl, not system perl, as they require
Perl 5.36.0+ features that jperl provides.

Author: fglock

src/test/resources/unit/carp.t

@@ -1,10 +1,9 @@
 use strict;
+use Test::More;
 use warnings;
 use Carp qw( carp cluck croak confess longmess shortmess );
 use feature 'say';
 
-print "1..6\n";
-
 sub printable {
     my $str = join("", @_);
     $str =~ s/\n/\n# /g;
@@ -19,31 +18,32 @@ $SIG{__WARN__} = sub {
 eval {
     carp "This is a carp warning";
 };
-print "not " if $@; say "ok # carp warning";
+ok(!($@), 'carp warning');
 
 # Test croak (die from the perspective of the caller)
 eval {
     croak "This is a croak error";
 };
-print "not " unless $@ =~ /This is a croak error/; say "ok # croak error";
+ok($@ =~ /This is a croak error/, 'croak error');
 
 # Test confess (die with stack backtrace)
 eval {
     confess "This is a confess error";
 };
-print "not " unless $@ =~ /This is a confess error/; say "ok # confess error with backtrace";
+ok($@ =~ /This is a confess error/, 'confess error with backtrace');
 
 # Test cluck (warn with stack backtrace)
 eval {
     cluck "This is a cluck warning";
 };
-print "not " if $@; say "ok # cluck warning with backtrace";
+ok(!($@), 'cluck warning with backtrace');
 
 # Test longmess (generate a long stack trace message)
 my $long_message = longmess("This is a longmess message");
-print "not " unless $long_message =~ /This is a longmess message/; say "ok # longmess message";
+ok($long_message =~ /This is a longmess message/, 'longmess message');
 
 # Test shortmess (generate a short stack trace message)
 my $short_message = shortmess("This is a shortmess message");
-print "not " unless $short_message =~ /This is a shortmess message/; say "ok # shortmess message";
+ok($short_message =~ /This is a shortmess message/, 'shortmess message');
 
+done_testing();

src/test/resources/unit/chained_compare.t

@@ -2,64 +2,51 @@
 # Chained Operators
 
 use 5.38.0;
-
-say "1..13";
+use Test::More;
 
 # Chained numeric comparisons
 my $result = 3 < 6 < 5;
-print "not " if $result;
-say "ok # 3 < 6 < 5 is false";
+ok(!($result), '3 < 6 < 5 is false');
 
 $result = 1 < 2 < 3;
-print "not " if !$result;
-say "ok # 1 < 2 < 3 is true";
+ok($result, '1 < 2 < 3 is true');
 
 $result = 5 > 3 > 1;
-print "not " if !$result;
-say "ok # 5 > 3 > 1 is true";
+ok($result, '5 > 3 > 1 is true');
 
 $result = 5 > 3 > 4;
-print "not " if $result;
-say "ok # 5 > 3 > 4 is false";
+ok(!($result), '5 > 3 > 4 is false');
 
 # Mixed comparison operators
 $result = 1 <= 2 < 3;
-print "not " if !$result;
-say "ok # 1 <= 2 < 3 is true";
+ok($result, '1 <= 2 < 3 is true');
 
 $result = 3 >= 3 > 2;
-print "not " if !$result;
-say "ok # 3 >= 3 > 2 is true";
+ok($result, '3 >= 3 > 2 is true');
 
 # Chained equality operators
 $result = 5 == 5 == 1;
-print "not " if $result;
-say "ok # 5 == 5 == 1 is true";
+ok(!($result), '5 == 5 == 1 is true');
 
 $result = 5 != 6 != 0;
-print "not " if !$result;
-say "ok # 5 != 6 != 0 is true";
+ok($result, '5 != 6 != 0 is true');
 
 # String comparisons
 $result = "a" lt "b" lt "c";
-print "not " if !$result;
-say "ok # 'a' lt 'b' lt 'c' is true";
+ok($result, '\'a\' lt \'b\' lt \'c\' is true');
 
 $result = "cat" gt "bat" gt "ant";
-print "not " if !$result;
-say "ok # 'cat' gt 'bat' gt 'ant' is true";
+ok($result, '\'cat\' gt \'bat\' gt \'ant\' is true');
 
 # Mixed numeric and string comparisons (should not chain)
 $result = 5 < 6 eq "1";
-print "not " if !$result;
-say "ok # 5 < 6 eq '1' is true";
+ok($result, '5 < 6 eq \'1\' is true');
 
 # Long chains
 $result = 1 < 2 < 3 < 4 < 5;
-print "not " if !$result;
-say "ok # 1 < 2 < 3 < 4 < 5 is true";
+ok($result, '1 < 2 < 3 < 4 < 5 is true');
 
 $result = 5 > 4 > 3 > 2 > 1;
-print "not " if !$result;
-say "ok # 5 > 4 > 3 > 2 > 1 is true";
+ok($result, '5 > 4 > 3 > 2 > 1 is true');
 
+done_testing();

src/test/resources/unit/compound_assignment.t

@@ -15,107 +15,90 @@
 #
 
 use strict;
+use Test::More;
 use feature "say";
 
-print "1..16\n";
-
 ###################
 # Compound Assignment Operators
 
 # Addition Assignment
 my $a = 5;
 $a += 3;
-print "not " if $a != 8;
-say "ok # 5 += 3 equals 8";
+ok(!($a != 8), '5 += 3 equals 8');
 
 # Subtraction Assignment
 $a = 10;
 $a -= 2;
-print "not " if $a != 8;
-say "ok # 10 -= 2 equals 8";
+ok(!($a != 8), '10 -= 2 equals 8');
 
 # Multiplication Assignment
 $a = 4;
 $a *= 2;
-print "not " if $a != 8;
-say "ok # 4 *= 2 equals 8";
+ok(!($a != 8), '4 *= 2 equals 8');
 
 # Division Assignment
 $a = 16;
 $a /= 2;
-print "not " if $a != 8;
-say "ok # 16 /= 2 equals 8";
+ok(!($a != 8), '16 /= 2 equals 8');
 
 # Modulus Assignment
 $a = 10;
 $a %= 3;
-print "not " if $a != 1;
-say "ok # 10 %= 3 equals 1";
+ok(!($a != 1), '10 %= 3 equals 1');
 
 # Exponentiation Assignment
 $a = 2;
 $a **= 3;
-print "not " if $a != 8;
-say "ok # 2 **= 3 equals 8";
+ok(!($a != 8), '2 **= 3 equals 8');
 
 # Bitwise AND Assignment
 $a = 12;     # 1100 in binary
 $a &= 10;    # 1010 in binary
-print "not " if $a != 8;
-say "ok # 12 &= 10 equals 8";
+ok(!($a != 8), '12 &= 10 equals 8');
 
 # Bitwise OR Assignment
 $a = 5;      # 0101 in binary
 $a |= 3;     # 0011 in binary
-print "not " if $a != 7;
-say "ok # 5 |= 3 equals 7";
+ok(!($a != 7), '5 |= 3 equals 7');
 
 # Bitwise XOR Assignment
 $a = 5;      # 0101 in binary
 $a ^= 3;     # 0011 in binary
-print "not " if $a != 6;
-say "ok # 5 ^= 3 equals 6";
+ok(!($a != 6), '5 ^= 3 equals 6');
 
 # Bitwise Shift Left Assignment
 $a = 2;      # 0010 in binary
 $a <<= 2;    # Shift left by 2 bits
-print "not " if $a != 8;
-say "ok # 2 <<= 2 equals 8";
+ok(!($a != 8), '2 <<= 2 equals 8');
 
 # Bitwise Shift Right Assignment
 $a = 8;      # 1000 in binary
 $a >>= 2;    # Shift right by 2 bits
-print "not " if $a != 2;
-say "ok # 8 >>= 2 equals 2";
+ok(!($a != 2), '8 >>= 2 equals 2');
 
 # String Concatenation Assignment
 my $str = "Hello";
 $str .= ", World!";
-print "not " if $str ne "Hello, World!";
-say "ok # 'Hello' .= ', World!' equals 'Hello, World!'";
+ok(!($str ne "Hello, World!"), '\'Hello\' .= \', World!\' equals \'Hello, World!\'');
 
 # Repeat Assignment
 $str = "a";
 $str x= 3;
-print "not " if $str ne "aaa";
-say "ok # 'a' x= 3 equals 'aaa'";
+ok(!($str ne "aaa"), '\'a\' x= 3 equals \'aaa\'');
 
 # Logical AND Assignment
 $a = 1;
 $a &&= 0;
-print "not " if $a != 0;
-say "ok # 1 &&= 0 equals 0";
+ok(!($a != 0), '1 &&= 0 equals 0');
 
 # Logical OR Assignment
 $a = 0;
 $a ||= 1;
-print "not " if $a != 1;
-say "ok # 0 ||= 1 equals 1";
+ok(!($a != 1), '0 ||= 1 equals 1');
 
 # Defined-or Assignment
 my $undefined;
 $undefined //= "default";
-print "not " if $undefined ne "default";
-say "ok # undefined //= 'default' equals 'default'";
-
+ok(!($undefined ne "default"), 'undefined //= \'default\' equals \'default\'');
 
+done_testing();

src/test/resources/unit/constant.t

@@ -1,9 +1,8 @@
 use strict;
+use Test::More;
 use feature 'say';
 use constant;
 
-print "1..10\n";
-
 # Define a small epsilon for floating-point comparison
 my $epsilon = 1e-9;
 
@@ -18,34 +17,34 @@ use constant {
     HOUR  => 2,
 };
 
-print "not " if SEC != 0; say "ok # SEC constant";
-print "not " if MIN != 1; say "ok # MIN constant";
-print "not " if HOUR != 2; say "ok # HOUR constant";
+ok(!(SEC != 0), 'SEC constant');
+ok(!(MIN != 1), 'MIN constant');
+ok(!(HOUR != 2), 'HOUR constant');
 
 # Test array constant
 use constant WEEKDAYS => qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
-print "not " if (WEEKDAYS)[0] ne 'Sunday'; say "ok # WEEKDAYS constant";
+ok(!((WEEKDAYS)[0] ne 'Sunday'), 'WEEKDAYS constant');
 
 # Test usage in expressions
 use constant DEBUG => 0;
-print "not " if DEBUG != 0; say "ok # DEBUG constant";
+ok(!(DEBUG != 0), 'DEBUG constant');
 
 # Test block-style constant definition
 use constant {
     TRUE  => 1,
     FALSE => 0,
 };
 
-print "not " if TRUE != 1; say "ok # TRUE constant";
-print "not " if FALSE != 0; say "ok # FALSE constant";
+ok(!(TRUE != 1), 'TRUE constant');
+ok(!(FALSE != 0), 'FALSE constant');
 
 # Test case-insensitivity
 use constant {
     Foo => 'bar',
     foo => 'baz',
 };
 
-print "not " if Foo ne 'bar'; say "ok # Foo constant";
-print "not " if foo ne 'baz'; say "ok # foo constant";
-
+ok(!(Foo ne 'bar'), 'Foo constant');
+ok(!(foo ne 'baz'), 'foo constant');
 
+done_testing();

src/test/resources/unit/for_loop_test.t

@@ -1,8 +1,7 @@
 use 5.32.0;
+use Test::More;
 use feature 'say';
 
-print "1..15\n";
-
 # Test multiple variables in for loop with pairs
 my @pairs = (1,2, 3,4, 5,6);
 my $test_num = 1;
@@ -21,11 +20,9 @@ $test_num = 1;
 for my ($a, $b) (@uneven) {
     my ($exp_a, $exp_b) = @{$expected[$test_num-1]};
     if (defined $exp_b) {
-        print "not " if $a != $exp_a || $b != $exp_b;
-        say "ok # pair $test_num: got <$a,$b>, expected <$exp_a,$exp_b>";
+        ok(!($a != $exp_a || $b != $exp_b), 'pair $test_num: got <$a,$b>, expected <$exp_a,$exp_b>');
     } else {
-        print "not " if $a != $exp_a || defined $b;
-        say "ok # incomplete pair $test_num: got <$a,undef>, expected <$exp_a,undef>";
+        ok(!($a != $exp_a || defined $b), 'incomplete pair $test_num: got <$a,undef>, expected <$exp_a,undef>');
     }
     $test_num++;
 }
@@ -36,8 +33,7 @@ my $pair_num = 1;
 for my ($first, $second) (map { @$_ } @nested) {
     my $exp_first = 2 * $pair_num - 1;
     my $exp_second = 2 * $pair_num;
-    print "not " if $first != $exp_first || $second != $exp_second;
-    say "ok # nested pair $pair_num: got <$first,$second>, expected <$exp_first,$exp_second>";
+    ok(!($first != $exp_first || $second != $exp_second), 'nested pair $pair_num: got <$first,$second>, expected <$exp_first,$exp_second>');
     $pair_num++;
 }
 
@@ -53,8 +49,7 @@ my %expected_pairs = (
     key3 => 'val3'
 );
 for my ($key, $value) (%hash) {
-    print "not " if !exists($expected_pairs{$key}) || $expected_pairs{$key} ne $value;
-    say "ok # hash entry: got <$key,$value>, expected <$key,$expected_pairs{$key}>";
+    ok(exists($expected_pairs{$key}) || $expected_pairs{$key} ne $value, 'hash entry: got <$key,$value>, expected <$key,$expected_pairs{$key}>');
 }
 
 # Test with list of expressions
@@ -64,9 +59,10 @@ my $idx = 0;
 for my ($num, $square) (@squares) {
     my $exp_num = $nums[$idx];
     my $exp_square = $exp_num * $exp_num;
-    print "not " if $num != $exp_num || $square != $exp_square;
-    say "ok # number and square: got <$num,$square>, expected <$exp_num,$exp_square>";
+    ok(!($num != $exp_num || $square != $exp_square), 'number and square: got <$num,$square>, expected <$exp_num,$exp_square>');
     $idx++;
 }
 
 1;
+
+done_testing();