The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

SHLOMIF / Test-Run-Plugin-TrimDisplayedFilenames-0.0127 / t / sample-tests / several-oks.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

              
#!/usr/bin/perl -w
use strict;
use Test::More tests => 3;
# TEST
ok(1, "OK on 1");
# TEST
ok(1, "OK on 2");
my $sum;
for(1 .. 10_000) { $sum += $_; }
# TEST
ok(1, "OK on 3");