The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
#!/usr/bin/perl

use strict;
use warnings;

use lib 't/lib';
use ComposedTests tests => 8;

IS 3, 3, 'This is from Test::More';
IS_DEEPLY [1], [1], 'This is from Test::Differences';
ok !defined &is_deeply, "... and Test::More::is_deeply should be excluded";
ok defined &use_ok,
  "... but non-excluded Test::More functions should be available";
ok defined &explain, '... and explain should be included';
ok defined &on_fail, '... on_fail should be exported';
on_fail { die "I failed with " . $_[0]->name . " on line " . $_[0]->line };
TODO: {
    local $TODO = 'testing';
    ok 0;
}
ok 1;