File: order.ft

package info (click to toggle)
libfennec-perl 2.018-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 384 kB
  • sloc: perl: 2,083; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 345 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/env perl
package Test::Order;
use strict;
use warnings;

use Fennec parallel => 0, test_sort => 'ordered';

my @seen;

for my $num ( 1 .. 20 ) {
    tests "$num" => sub {
        push @seen => $num;
        is_deeply(
            \@seen,
            [1 .. $num],
            "Ordered through $num",
        );
    };
}

done_testing;