root/trunk/t/htdocs/17-buffer/no-buffer.asp

Revision 83, 199 bytes (checked in by clinton, 4 years ago)

Add tests for Buffer feature, tid10737 tid10892, resolves trac24

Line 
1 <% #> -*-cperl-*-
2    use Time::HiRes qw(usleep);
3    my $naptime = 500_000; # in microsec
4
5    my $wad = 'deadbeef' x 1024;
6
7    for (1..3) {
8        print "$wad$_\n";
9        usleep($naptime);
10    }
11
12 %>
13
Note: See TracBrowser for help on using the browser.