ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-Test-Simple/t/Legacy/Regression
/
usr
share
doc
perl-Test-Simple
t
Legacy
Regression
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
6_cmp_ok.t
265 B
chmod
View
DL
Edit
Rename
Delete
637.t
1.23 MB
chmod
View
DL
Edit
Rename
Delete
683_thread_todo.t
428 B
chmod
View
DL
Edit
Rename
Delete
736_use_ok.t
782 B
chmod
View
DL
Edit
Rename
Delete
789-read-only.t
672 B
chmod
View
DL
Edit
Rename
Delete
870-experimental-warnings.t
312 B
chmod
View
DL
Edit
Rename
Delete
is_capture.t
378 B
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-Test-Simple/t/Legacy/Regression/736_use_ok.t
use warnings; use strict; use Test::More; BEGIN { $INC{'MyWarner.pm'} = 1; package MyWarner; sub import { warnings::warnif('deprecated', "Deprected! run for your lives!"); } } sub capture(&) { my $warn; local $SIG{__WARN__} = sub { $warn = shift }; $_[0]->(); return $warn || ""; } { local $TODO = "known to fail on $]" if $] le "5.006002"; my $file = __FILE__; my $line = __LINE__ + 4; like( capture { local $TODO; # localize $TODO to clear previous assignment, as following use_ok test is expected to pass use_ok 'MyWarner'; }, qr/^Deprected! run for your lives! at \Q$file\E line $line/, "Got the warning" ); } ok(!capture { no warnings 'deprecated'; use_ok 'MyWarner' }, "No warning"); done_testing;
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply