#!/usr/bin/perl -w
BEGIN {
if
(
$ENV
{PERL_CORE} ) {
chdir
't'
;
@INC
= (
'../lib'
,
'lib'
);
}
else
{
unshift
@INC
,
't/lib'
;
}
}
my
$TB
= Test::Builder->create;
$TB
->plan(
tests
=> 4);
my
(
$out
,
$err
) = Test::Simple::Catch::caught();
local
$ENV
{HARNESS_ACTIVE} = 0;
Test::More->
import
(
tests
=> 1);
{
eval
q{ like( "foo", qr/that/, 'is foo like that' ); }
;
$TB
->is_eq(
$out
->
read
,
<<OUT, 'failing output');
1..1
not ok 1 - is foo like that
OUT
my
$modifiers
= (
qr/foobar/
=~ /\Q(?^/) ?
'\\^'
:
'-xism'
;
my
$err_re
=
<<ERR;
# Failed test 'is foo like that'
# at .* line 1\.
# 'foo'
# doesn't match '\\(\\?$modifiers:that\\)'
ERR
$TB
->like(
$err
->
read
,
qr/^$err_re$/
,
'failing errors'
);
}
{
like(
"foo"
,
"not a regex"
);
$TB
->is_eq(
$out
->
read
,
<<OUT);
not ok 2
OUT
$TB
->is_eq(
$err
->
read
,
<<OUT);
# Failed test at $0 line 63.
# 'not a regex' doesn't look much like a regex to me.
OUT
}
END {
$? =
scalar
grep
{ !
$_
}
$TB
->summary;
}