0
@@ -13,9 +13,12 @@ if defined? BusScheme::Web::Resource
0
   class WebRackTest < Test::Unit::TestCase
0
     def setup
0
       @response = nil
0
-      app = '(lambda (env) (quote ("200" ("Content-Type" "text/plain") "This is Simple")))'
0
-      @simple_app = eval!(app) 
0
-      eval! "(defwebapp \"/simple\" #{app})"
0
+
0
+      # a very basic rack app in scheme registered at "/simple"
0
+      simple_lambda = '(lambda (env) (quote ("200" ("Content-Type" "text/plain") "This is Simple")))'
0
+      @simple_app = eval!(simple_lambda)
0
+      eval! "(defwebapp \"/simple\" #{simple_lambda})"
0
+      
0
     end
0
     
0
     def test_app_can_be_called
0
@@ -31,6 +34,11 @@ if defined? BusScheme::Web::Resource
0
       get '/simple'
0
       assert_equal 'text/plain', @response.headers['Content-Type']
0
     end
0
+    
0
+    def test_returns_body
0
+      get '/simple'
0
+      assert_equal 'This is Simple', @response.body
0
+    end
0
 
0
     private
0