✏️ 正在编辑: threads.t
路径:
/usr/share/doc/perl-Test-Simple/t/Legacy/subtest/threads.t
提示:
您可以编辑任何文件（包括二进制文件），但请注意不当修改可能导致文件损坏。
#!/usr/bin/perl -w use strict; use warnings; use Test2::Util qw/CAN_THREAD/; BEGIN { unless(CAN_THREAD) { require Test::More; Test::More->import(skip_all => "threads are not supported"); } } use threads; use Test::More; subtest 'simple test with threads on' => sub { is( 1+1, 2, "simple test" ); is( "a", "a", "another simple test" ); }; pass("Parent retains sharedness"); done_testing(2);
💾 保存文件
← 返回文件管理器