Checking if your kit is complete... Looks good Writing Makefile for NTS::Template Microsoft (R) Program Maintenance Utility Version 7.10.3077 Copyright (C) Microsoft Corporation. All rights reserved. cp Template.pm blib\lib\NTS\Template.pm Microsoft (R) Program Maintenance Utility Version 7.10.3077 Copyright (C) Microsoft Corporation. All rights reserved. C:\cpanrun\build\5-10-0\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/1....1..2 ok 1 my $a; my $test1 = $vars->{templ_vars}->{test1}; my $test3 = $vars->{templ_vars}->{test3}; my $test2 = $vars->{templ_vars}->{test2}; print("bbb"); print("aaa bbb"); print("aaa bbb"); print("aaa bbb"); print("aaa "); if ($a eq "bbb") { print("aaaaacerto"); } print(" "); if ($test1) { print(" ok, test1 "); } print(" "); if ($test2->{test2}) { print(" ok, test2.test2 "); } print(" "); if ($test1 eq $test2->{test2}) { print(" ok, test1 == test2.test2 "); } print(" "); if ($test1 eq "ok") { print(" ok, test1 == \"ok\" "); } print(" "); if ($test3 eq '1') { print(" ok, test3 "); } print(" "); if ($test1 && $test2->{test2} && $test3) { print(" ok, test1 AND test2.test2 AND test3 "); } print(" "); if ($test1 || $test3) { print(" ok, test1 OR test3 "); } print(" "); if ($test1 eq $test3) { print(" ok, test1 == test3 "); } else { print(" fail "); } print(" "); if ($test1 ne "fail") { print(" ok, test1 != \"ok\" "); } else { print(" fail "); } print(" "); if ($test2->{test2} ne "fail") { print(" ok, test2.test2 != \"ok\" "); } else { print(" fail "); } print(" "); if ($test1 eq $test3) { print(" ok, test1 == test3 "); } elsif ($test2->{test2} eq $test3) { print(" ok, test2.test2 == test3 "); } else { print(" fail "); } print(" "); unless ($test1 eq "fail") { print(" fail, test == \"fail\" "); } else { print(" ok "); } print(" "); bbbaaa bbbaaa bbbaaa bbbaaa ok, test1 ok, test2.test2 ok, test1 == test2.test2 ok, test1 == "ok" ok, test1 AND test2.test2 AND test3 ok, test1 OR test3 fail ok, test1 != "ok" ok, test2.test2 != "ok" fail fail, test == "fail" ok 2 ok t/2....1..2 ok 1 my $array; my $count; my $temp; my $test1 = $vars->{templ_vars}->{test1}; my $i; print(""); foreach $i (@{$array}) { print(" "); $temp = $test1; print(" "); } print(" "); $count = ""; print(" "); $count = '0'; print(" "); ok 2 ok t/3....1..2 ok 1 my $count; my $i; print(""); $count++; print(" "); $i->{count}++; print(" "); print($count); print(" "); 1 ok 2 ok t/4....1..2 ok 1 my $count; my $cont; my $x; my $i; my $soma; print(""); $soma = $x->{soma} + $i->{total}; print(" "); $cont++; print(" "); $cont--; print(" "); if ($count++ % '2') { print("ok"); } print(" "); ok 2 ok t/5....1..2 ok 1 my $PRINTF = sub { my ($x,$y) = @_; printf($x,$y); }; my $value; my $i; print(""); for ($i = '1' ; $i <= '2' ; $i++) { print(" "); &$PRINTF("%.2f" , $i); print(" "); } print(" "); $value->{temp_ok} = "5"; print(" "); &$PRINTF("%.2f" , $value->{temp_ok}); print(" "); 1.00 2.00 5.00 ok 2 ok t/6....1..2 ok 1 my $ENDIF; print("debug: "); if print(""); print($ENDIF); print(" "); syntax error at (eval 1) line 2, near "if print" ok 2 ok All tests successful. Files=6, Tests=12, 0 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU) Microsoft (R) Program Maintenance Utility Version 7.10.3077 Copyright (C) Microsoft Corporation. All rights reserved. Installing C:\cpanrun\build\5-10-0\html\site\lib\NTS\Template.html Installing C:\cpanrun\build\5-10-0\site\lib\NTS\Template.pm Appending installation info to C:\cpanrun\build\5-10-0\lib/perllocal.pod