Set up Blueprint stdlib tests through rake

We implemented the standard library's tests in Blueprint, but we
should still be running them when we run rake (for CI, in particular).

Also implement a blueprint executable for running files.

Rakefile

@@ -2,4 +2,8 @@ require "rspec/core/rake_task"
 
 RSpec::Core::RakeTask.new(:spec)
 
-task default: :spec
+task :standard_library_tests do
+  system("bin/blueprint spec/*-tests.blu") || exit(1)
+end
+
+task default: [:spec, :standard_library_tests]

bin/blueprint

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+
+require_relative "../lib/blueprint"
+
+input = ""
+
+while line = gets
+  input << line
+end
+
+Blueprint::Interpreter.new.eval(input)

lib/standard-library.blu

@@ -9,8 +9,6 @@
           ""
           args))
 
-(define dolist map)
-
 (define (even? n)
   (== (% n 2) 0))
 
@@ -45,6 +43,8 @@
       (cons (f (first seq))
             (map f (rest seq)))))
 
+(define dolist map)
+
 (define (not value)
   (if value
       false

spec/test-framework.blu → lib/test-framework.blu

@@ -8,11 +8,7 @@
   (if (== a b)
       (display ".")
       (prog
-       (display "F\n")
-       (display a)
-       (display " and ")
-       (display b)
-       (display " aren't equal!\n")
+       (display (concatenate "F\n" a " and " b " aren't equal!\n"))
        (exit 1))))
 
 (define (deftest docstring test)
@@ -21,5 +17,5 @@
 
 (define (run-tests)
   (prog
-   (map (lambda (test) (test)) pending-tests)
+   (dolist (lambda (test) (test)) pending-tests)
    (display "\nDone. Lookin' fine!\n")))

spec/standard-library-tests.blu

@@ -1,4 +1,4 @@
-(load "test-framework.blu")
+(load "lib/test-framework.blu")
 
 (deftest
   "and returns true if all arguments are truthy"
@@ -10,6 +10,11 @@
   '(assert-equal (and 1 false "foo")
                  false))
 
+(deftest
+  "concatenate appends its arguments together into a string"
+  '(assert-equal (concatenate 1 " foo " '(1 2))
+                 "1 foo (1 2)"))
+
 (deftest
   "even? returns true if a number is even"
   '(assert-equal (even? 4)