ACIL FM
Dark
Refresh
Current DIR:
/home/.cpan/build/NetAddr-IP-4.079-0/t
/
home
.cpan
build
NetAddr-IP-4.079-0
t
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
canon.t
480 B
chmod
View
DL
Edit
Rename
Delete
constants.t
488 B
chmod
View
DL
Edit
Rename
Delete
full.t
721 B
chmod
View
DL
Edit
Rename
Delete
full6-uri.t
727 B
chmod
View
DL
Edit
Rename
Delete
full6.t
721 B
chmod
View
DL
Edit
Rename
Delete
imhoff.t
873 B
chmod
View
DL
Edit
Rename
Delete
loops.t
647 B
chmod
View
DL
Edit
Rename
Delete
lower.t
220 B
chmod
View
DL
Edit
Rename
Delete
masklen.t
345 B
chmod
View
DL
Edit
Rename
Delete
new-store.t
812 B
chmod
View
DL
Edit
Rename
Delete
nofqdn.t
437 B
chmod
View
DL
Edit
Rename
Delete
old-store.t
841 B
chmod
View
DL
Edit
Rename
Delete
over-arr.t
500 B
chmod
View
DL
Edit
Rename
Delete
over-qq.t
800 B
chmod
View
DL
Edit
Rename
Delete
relops.t
1.53 MB
chmod
View
DL
Edit
Rename
Delete
rfc3021.t
627 B
chmod
View
DL
Edit
Rename
Delete
short.t
1.7 MB
chmod
View
DL
Edit
Rename
Delete
splitref.t
749 B
chmod
View
DL
Edit
Rename
Delete
v4-coalesce.t
1.47 MB
chmod
View
DL
Edit
Rename
Delete
v4-compact.t
2.18 MB
chmod
View
DL
Edit
Rename
Delete
v4-compplus.t
531 B
chmod
View
DL
Edit
Rename
Delete
v4-hostenum.t
1.02 MB
chmod
View
DL
Edit
Rename
Delete
v4-re.t
826 B
chmod
View
DL
Edit
Rename
Delete
v4-split-bulk.t
547 B
chmod
View
DL
Edit
Rename
Delete
v4-split-list.t
1.17 MB
chmod
View
DL
Edit
Rename
Delete
v4-splitplan.t
2.23 MB
chmod
View
DL
Edit
Rename
Delete
v4-sprefix.t
779 B
chmod
View
DL
Edit
Rename
Delete
v4-xprefix.t
773 B
chmod
View
DL
Edit
Rename
Delete
v6-re.t
1.42 MB
chmod
View
DL
Edit
Rename
Delete
v6-split-bulk.t
513 B
chmod
View
DL
Edit
Rename
Delete
v6-splitplan.t
2.35 MB
chmod
View
DL
Edit
Rename
Delete
wildcard.t
546 B
chmod
View
DL
Edit
Rename
Delete
Edit file: /home/.cpan/build/NetAddr-IP-4.079-0/t/splitref.t
use Test::More qw(no_plan); #tests => 28; use_ok('NetAddr::IP'); my $ip = new NetAddr::IP('ffff:a123:b345:c789::/48'); my $rv; ok(($rv = sprintf("%s",$ip)) eq 'FFFF:A123:B345:C789:0:0:0:0/48',"$rv eq FFFF:A123:B345:C789:0:0:0:0/48"); my $nets = $ip->splitref(48); ok($nets,'there is a net'); ok(@$nets == 1,'one item net'); ok(($rv = sprintf("%s",$ip)) eq 'FFFF:A123:B345:C789:0:0:0:0/48',"$rv eq FFFF:A123:B345:C789:0:0:0:0/48"); $nets = $ip->splitref(49,50); ok($nets,'there are nets'); ok(($rv = @$nets) == 3,"$rv is 3 item net"); my @exp = qw( FFFF:A123:B345:0:0:0:0:0/49 FFFF:A123:B345:8000:0:0:0:0/50 FFFF:A123:B345:C000:0:0:0:0/50 ); foreach(0..$#{$nets}) { ok(($rv = sprintf("%s",$nets->[$_])) eq $exp[$_], "$rv eq $exp[$_]"); }
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply