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(""); 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(" "); 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 All tests successful. Files=5, Tests=10, 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\site\lib\NTS\Template.pm Appending installation info to C:\cpanrun\build\5-10-0\lib/perllocal.pod