X7ROOT File Manager
Current Path:
/usr/share/doc/perl-Test-Simple/t/Legacy/Regression
usr
/
share
/
doc
/
perl-Test-Simple
/
t
/
Legacy
/
Regression
/
📁
..
📄
637.t
(1.23 KB)
📄
683_thread_todo.t
(428 B)
📄
6_cmp_ok.t
(265 B)
📄
736_use_ok.t
(782 B)
📄
789-read-only.t
(672 B)
Editing: 6_cmp_ok.t
use Test::More; use Test2::API qw/intercept/; my $events = intercept { local $SIG{__WARN__} = sub { 1 }; my $foo = undef; cmp_ok($foo, "ne", ""); }; is($events->[-1]->message, <<EOT, "Got useful diag"); undef ne '' EOT done_testing;
Upload File
Create Folder