9 lines
137 B
Perl
9 lines
137 B
Perl
#!/usr/bin/perl
|
|
|
|
use Test::More tests => 2;
|
|
|
|
use DBD::Util;
|
|
|
|
is unquote('"x"'), 'x', '"unquote"';
|
|
isnt unquote('x""'), 'x', 'unquote""';
|