1234567891011 #!/usr/bin/perluse strict;use warnings FATAL => 'all';use Test::More tests => 2;BEGIN { use_ok 'PHP::Strings', ':addslashes' };# Good inputs{ eval { addslashes(q{'x'} ) }; like( $@, qr/Function `addslashes' not implemented/, "Not implemented." );}
#!/usr/bin/perl
use
strict;
warnings
FATAL
=>
'all'
;
Test::More
tests
=> 2;
BEGIN { use_ok
'PHP::Strings'
,
':addslashes'
};
# Good inputs
{
eval
{ addslashes(
q{'x'}
) };
like( $@,
qr/Function `addslashes' not implemented/
"Not implemented."
);
}