Renamed test file for (string-to-num). Added (gets) to standard library.

examples/guess-the-number.scm

@@ -5,13 +5,6 @@
     end
   "))
 
-(define gets
-  (native_function "
-    Proc.new() do |arguments, interpreter|
-      $stdin.gets
-    end
-  "))
-
 (define number (+ (rand 9) 1))
 
 (display "\n\nI'm thinking of a number between 1 and 10,\n")

lib/flea/standard_library/gets.scm

@@ -0,0 +1,6 @@
+(define gets
+  (native_function "
+    Proc.new() do |arguments, interpreter|
+      $stdin.gets
+    end
+  "))

spec/flea/standard_library/gets_spec.rb

@@ -0,0 +1,23 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "gets" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+      @old_stdin = $stdin
+      @buffer = StringIO.new
+      $stdin = @buffer
+    end
+
+    it "should get input from STDIN" do
+      @buffer.string = "test\n"
+      result = @interpreter.run('(gets)')
+      result.should == "test\n"
+    end
+
+    after :each do
+      $stdin = @old_stdin
+    end
+
+  end
+end