Add test and bind handler for IntStr argument

Per Issue: #2
CurtTilmes · Feb 12, 2019 · 753bdf0 · 753bdf0
1 parent 7f186a5
commit 753bdf0
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 0 deletions.
diff --git a/lib/DB/SQLite/Native.pm6 b/lib/DB/SQLite/Native.pm6
@@ -73,6 +73,11 @@ class DB::SQLite::Native::Statement is repr('CPointer')
         $.bind-int64($n,$v) == SQLITE_OK or $.check
     }
 
+    multi method bind(Int $n, IntStr:D $v --> Nil)
+    {
+        $.bind-int64($n,$v) == SQLITE_OK or $.check
+    }
+
     multi method bind(Int $n, Any:U --> Nil)
     {
         $.bind-null($n) == SQLITE_OK or $.check

diff --git a/t/08-intstr.t b/t/08-intstr.t
@@ -0,0 +1,19 @@
+use Test;
+use Test::When <extended>;
+
+use DB::SQLite;
+
+plan 4;
+
+isa-ok my $db = DB::SQLite.new, DB::SQLite, 'Create object';
+
+my IntStr $foo = <42>;
+
+is $db.query('select 1 where ? = ?', $foo, $foo).value, 1,
+    'Pass in IntStr value';
+
+lives-ok { $db.finish }, 'Finish object';
+
+is DB::SQLite::Native.memory-used, 0, 'All handles deleted';
+
+done-testing;