#!/usr/bin/perl use strict; use warnings; use lib 't/lib'; use ComposedTests 'no_plan'; #tests => 2; 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 0, 'this is a name'; ok 1;