From eb6fcd0b90e55426a301d827723d1b4f8d4154c6 Mon Sep 17 00:00:00 2001
From: Carl Masak <cmasak@gmail.com>
Date: Sat, 19 Sep 2009 19:07:54 +0200
Subject: [PATCH] implemented simple select_sql

---
 lib/Squerl.pm         |  5 +++++
 t/squerl/02-dataset.t | 16 ++++++++++++++++
 2 files changed, 21 insertions(+)

diff --git a/lib/Squerl.pm b/lib/Squerl.pm
index cfc888f..b070de4 100644
--- a/lib/Squerl.pm
+++ b/lib/Squerl.pm
@@ -81,6 +81,11 @@ class Squerl::Dataset does Positional {
         }
         $name;
     }
+
+    method select_sql() {
+        # RAKUDO: Real string interpolation
+        "SELECT * FROM {%!opts<from>}";
+    }
 }
 
 class Squerl::Database {
diff --git a/t/squerl/02-dataset.t b/t/squerl/02-dataset.t
index d58feeb..260d48d 100644
--- a/t/squerl/02-dataset.t
+++ b/t/squerl/02-dataset.t
@@ -181,4 +181,20 @@ $dataset = Squerl::Dataset.new(undef).from('items');
     is_deeply $clone.opts<from>, ['other'], 'cloned .opts<from> changed'
 }
 
+{
+    # TODO: Can't realisticly do this one yet.
+
+    # m = Module.new do
+    #   def __xyz__; "xyz"; end
+    # end
+    # @dataset.extend(m)
+    # @dataset.clone({}).should respond_to(:__xyz__)
+}
+
+$dataset = Squerl::Dataset.new(undef).from('test');
+
+{
+    is $dataset.select_sql, 'SELECT * FROM test';
+}
+
 done_testing;