1use Test::More tests => 1; 2 3use strict; 4use warnings; 5 6my $blib = $ENV{PERL_CORE} ? '-I../../lib' : '-Mblib'; 7 8my $pl = $0; 9$pl =~ s{t$}{pl}; 10 11my $out = `$^X $blib $pl`; 12$out =~ s{\s+}{ }gs; 13$out =~ s{^\s+|\s+$}{}gs; 14# we want to make sure that the marked-up text is not lost 15is($out, 'backup pkg please dest: Para for backup.'); 16 17