use strict;
my $x;

my $demo = $ENV{DEMO};

eval <<'PRELOAD' ? eval <<'TEST' : ( $x = $@, eval <<'FALLBACK' );
    use Test::More;
    1;
PRELOAD
    use Test::Differences;

    plan tests => 3 ;

    print "#\n# This test misuses TODO:",
          " these TODOs are actually real tests.\n#\n"
        unless $demo;
    TODO: {
        local $TODO = "testing failure, not really a TODO" unless $demo;
        my @docs = (
            join( "", map "this is line $_\n", qw( 1 2 3 ) ),
            join( "", map "this is line $_\n", qw( 1 b 3 ) )
        );
        eq_or_diff @docs, "differences in text";

        @docs = ( ( "        indented\n" x 3 ) x 2 );

        $docs[1] =~ s/(^..*?^)\s+/$1\t/ms or die "Can't subst \\t for ' '";

        eq_or_diff @docs, "differences in whitespace";

        eq_or_diff( Test::Builder->new, [ "Dry, humorless message" ] );
    }
TEST
    use Test;

    plan tests => 1;

    skip $x, "" ;
FALLBACK

die $@ if $@ ;