Select Code to Download

Select or download this

#!perl

...
# Test3
ok($var2 == $var1, 'Fail: ok()')
    or diag "\$var1[$var1] \$var2[$var2]";

Select or download this

ok($var1 == $var2, "Fail: ok($var1 == $var2)");

Select or download this

$ perl pm_11152486_test_more.t
1..3
...
#   at pm_11152486_test_more.t line 17.
# $var1[1] $var2[2]
# Looks like you failed 3 tests of 3.

Select or download this

$ prove pm_11152486_test_more.t
pm_11152486_test_more.t .. 1/3
...
  Non-zero exit status: 3
Files=1, Tests=3,  0 wallclock secs ( 0.05 usr  0.02 sys +  0.03 cusr 
+ 0.09 csys =  0.19 CPU)
Result: FAIL

Select or download this

$ prove -v pm_11152486_test_more.t
pm_11152486_test_more.t ..
...
  Non-zero exit status: 3
Files=1, Tests=3,  0 wallclock secs ( 0.00 usr  0.09 sys +  0.03 cusr 
+ 0.08 csys =  0.20 CPU)
Result: FAIL

Select or download this
```
prove -vb t/failed_test.t
```
Select or download this
```
prove -vb t/01-openai.t
```