X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F15placeholders.t;h=a82b66809c22d423a6707f35db1f139f2d54f2bf;hb=e4570c8e06ddb929c5ae0322cb2e42ef523a6ed4;hp=4ee0db83a8d453c5597eca6be644d2658e938e3e;hpb=4e914a7c1dd88467a0d287073c9a9db477725394;p=dbsrgits%2FSQL-Abstract.git

diff --git a/t/15placeholders.t b/t/15placeholders.t
index 4ee0db8..a82b668 100644
--- a/t/15placeholders.t
+++ b/t/15placeholders.t
@@ -4,15 +4,13 @@ use warnings;
 use Test::More;
 use SQL::Abstract::Tree;
 
-my $placeholders = ['station', 'lolz'];
-
 {
    my $sqlat = SQL::Abstract::Tree->new({
       fill_in_placeholders => 1,
       placeholder_surround => [qw(; -)],
    });
 
-   is($sqlat->fill_in_placeholder($placeholders), q(;lolz-),
+   is($sqlat->fill_in_placeholder(['lolz']), q(;lolz-),
       'placeholders are populated correctly'
    );
 }
@@ -23,7 +21,7 @@ my $placeholders = ['station', 'lolz'];
       placeholder_surround => [qw(< >)],
    });
 
-   is($sqlat->fill_in_placeholder($placeholders), q(<station>),
+   is($sqlat->fill_in_placeholder(['station']), q(<station>),
       'placeholders are populated correctly and in order'
    );
 }
@@ -35,7 +33,7 @@ my $placeholders = ['station', 'lolz'];
       placeholder_surround => [qw(' ')],
    });
 
-   is $sqlat->format('SELECT ? as x, ? as y FROM Foo WHERE t > ? and z IN (?, ?, ?) ', ['frew', 'ribasushi', '2008-12-12', 1, 2, 3]),
+   is $sqlat->format('SELECT ? as x, ? as y FROM Foo WHERE t > ? and z IN (?, ?, ?) ', [qw/frew ribasushi 2008-12-12 1 2 3/]),
    q[SELECT 'frew' as x, 'ribasushi' as y FROM Foo WHERE t > '2008-12-12' AND z IN ('1', '2', '3')], 'Complex placeholders work';
 }