6 use SQL::Translator::Shim;
8 my $shim = SQL::Translator::Shim->new(
9 quote_chars => ['[', ']'],
12 is $shim->quote('frew'), '[frew]', 'simple quote works';
13 is $shim->quote('people.frew'), '[people].[frew]', 'namespaced quote works';
15 my $single_shim = SQL::Translator::Shim->new(
19 is $single_shim->quote('frew'), '|frew|', 'simple single quote works';
20 is $single_shim->quote('people.frew'), '|people|.|frew|', 'namespaced single quote works';
22 my $no_shim = SQL::Translator::Shim->new();
24 is $no_shim->quote('frew'), 'frew', 'simple no quote works';
25 is $no_shim->quote('people.frew'), 'people.frew', 'namespaced no quote works';