### ----------------------------------------------------
### -- SQL::NamedPlaceholder
### -- Licenses: Artistic-2.0
### -- Authors: astj
### -- File: t/06-hyphen.t
### ----------------------------------------------------
use v6;
use Test;

use SQL::NamedPlaceholder;

my ($sql, $bind) = bind-named(q:to/EOQ/, { blog-status => 1, blog_id => 3, limit => 5 });
SELECT * FROM entry
    WHERE blog_id = :blog_id
    AND status = :blog-status
    ORDER BY datetime DESC
    LIMIT :limit
EOQ

is $sql, q:to/EOQ/;
SELECT * FROM entry
    WHERE blog_id = ?
    AND status = ?
    ORDER BY datetime DESC
    LIMIT ?
EOQ

is-deeply $bind, [3,1,5];

done-testing;


