t/50-rt-102155.t - libnet-ip-xs-perl (run/bcb67185-3bdb-4404-aab2-655bc28317d3/upstream)

Tree @run/bcb67185-3bdb-4404-aab2-655bc28317d3/upstream (Download .tar.gz)

..
00-load.t
01-pod.t
10-basic.t
10-n128.t
11-iptobin.t
12-iplengths.t
13-bintoip.t
14-bintoint.t
15-inttobin.t
16-is-ipv4.t
17-is-ipv6.t
18-get-version.t
19-get-mask.t
20-last-address.t
21-split-prefix.t
22-is-valid-mask.t
23-expand-address.t
24-bincomp.t
25-binadd.t
26-get-prefix-length.t
27-compress-v4.t
28-overlap.t
29-check-prefix.t
30-range-to-prefix.t
31-get-embedded-ipv4.t
32-aggregate.t
33-prefix-to-range.t
34-reverse.t
35-normalize.t
36-normal-range.t
37-compress-v6.t
38-type.t
39-auth.t
40-objects.t
41-serialise.t
42-tags.t
43-ip-add-num-v4.t
44-ip-add-num-v6.t
45-short.t
46-wrong-object.t
47-object-size.t
48-rt-73232.t
49-rt-92211.t
50-rt-102155.t
51-rt-102155-2.t
52-rt-118605.t
53-rt-118593.t
54-rt-122438.t

50-rt-102155.t @run/bcb67185-3bdb-4404-aab2-655bc28317d3/upstream — raw · history · blame

#!/usr/bin/env perl

use warnings;
use strict;

use Config;
use if $Config{'useithreads'}, 'threads';
use Test::More;

BEGIN {
    if (not $Config{'useithreads'}) {
        plan skip_all => "Perl not compiled with 'useithreads'";
    } else {
        plan tests => 1;
    }
};
        
use Net::IP::XS;

my $i = Net::IP::XS->new('::1');
for my $j (1..10) {
    async {};
}
for my $thread (threads->list()) {
    $thread->join();
}
ok(1, "Completed thread test successfully");

1;