view release on metacpan or  search on metacpan

t/loops.t  view on Meta::CPAN

use Apache::ASP::CGI;
&Apache::ASP::CGI::do_self(NoState => 1);

__END__

<% use lib '.';	use T;	$t =T->new(); %>

<% 
my $count = 0;	
for(1..3) {
	$count++;
}
if($count == 3) {
	$t->ok;
} else {
	$t->not_ok("for loop didn't work");
}	

$count = 0;
while(1) {
	last if (++$count > 2);	
}
if($count == 3) {
	$t->ok;
} else {
	$t->not_ok("while loop didn't work");
}	

$t->done;
%>