spontaneous 0.2.0.alpha2 → 0.2.0.alpha3

data/test/functional/test_back.rb

@@ -32,15 +32,17 @@ class BackTest < MiniTest::Spec
 
   def setup
     @site = setup_site(self.class.site_root)
+    Spot::Permissions::UserLevel.reset!
+    Spot::Permissions::UserLevel.init!
   end
 
 
-  def auth_post(path, params={})
-    post(path, params.merge("__key" => @key))
+  def auth_post(path, params={}, env={})
+    post(path, params.merge("__key" => @key), env)
   end
 
-  def auth_get(path, params={})
-    get(path, params.merge("__key" => @key))
+  def auth_get(path, params={}, env={})
+    get(path, params.merge("__key" => @key), env)
   end
 
   context "Editing interface" do
@@ -52,6 +54,7 @@ class BackTest < MiniTest::Spec
       config.stubs(:auto_login).returns('root')
       config.stubs(:default_charset).returns('utf-8')
       config.stubs(:publishing_method).returns(:immediate)
+      config.stubs(:services).returns(nil)
       config.stubs(:site_domain).returns('example.org')
       config.stubs(:site_id).returns('example_org')
       config.stubs(:site_id).returns('example_org')
@@ -70,8 +73,8 @@ class BackTest < MiniTest::Spec
       # Spontaneous::Rack::Back.application.send :set, :show_exceptions, false
 
       # annoying to have to do this, but there you go
-      @user = Spontaneous::Permissions::User.create(:email => "root@example.com", :login => "root", :name => "root", :password => "rootpass", :password_confirmation => "rootpass")
-      @user.update(:level => Spontaneous::Permissions.root)
+      @user = Spontaneous::Permissions::User.create(:email => "root@example.com", :login => "root", :name => "root name", :password => "rootpass")
+      @user.update(:level => Spontaneous::Permissions[:editor])
       @user.save
       @key = "c5AMX3r5kMHX2z9a5ExLKjAmCcnT6PFf22YQxzb4Codj"
       @key.stubs(:user).returns(@user)
@@ -79,6 +82,7 @@ class BackTest < MiniTest::Spec
       @user.stubs(:access_keys).returns([@key])
 
       Spontaneous::Permissions::User.stubs(:[]).with(:login => 'root').returns(@user)
+      Spontaneous::Permissions::User.stubs(:[]).with(@user.id).returns(@user)
       Spontaneous::Permissions::AccessKey.stubs(:authenticate).with(@key).returns(@key)
       Spontaneous::Permissions::AccessKey.stubs(:valid?).with(@key, @user).returns(true)
 
@@ -114,6 +118,7 @@ class BackTest < MiniTest::Spec
         end
         box :in_progress do
           allow Job
+          allow Image
         end
 
         box :featured_jobs do
@@ -121,6 +126,10 @@ class BackTest < MiniTest::Spec
         end
       end
 
+      class AdminAccess < Page
+        field :title
+        field :private, :user_level => :root
+      end
 
 
       @home = HomePage.new(:title => "Home")
@@ -140,12 +149,14 @@ class BackTest < MiniTest::Spec
       @home.in_progress << @job2
       @home.in_progress << @job3
 
+
       @home.save
       @home = Content[@home.id]
+
     end
 
     teardown do
-      [:Page, :Piece, :HomePage, :Job, :Project, :Image, :LinkedJob].each { |klass| BackTest.send(:remove_const, klass) rescue nil }
+      [:Page, :Piece, :HomePage, :Job, :Project, :Image, :LinkedJob, :AdminAccess].each { |klass| BackTest.send(:remove_const, klass) rescue nil }
       Spontaneous::Permissions::User.delete
       Content.delete
     end
@@ -176,26 +187,62 @@ class BackTest < MiniTest::Spec
         assert_equal S::JSON.encode(page.export), last_response.body
       end
 
-      should "return json for all types" do
-        auth_get "/@spontaneous/types"
-        assert last_response.ok?
+      should "respect user levels in page json" do
+        page = AdminAccess.create
+        auth_get "/@spontaneous/page/#{page.id}"
+        result = Spot::JSON.parse(last_response.body)
+        result[:fields].map { |f| f[:name] }.should == ["title"]
+      end
+
+      should "return the typelist as part of the site metadata" do
+        auth_get "/@spontaneous/metadata"
+        assert last_response.ok?, "Should have recieved a 200 OK but got a #{ last_response.status }"
         last_response.content_type.should == "application/json;charset=utf-8"
-        assert_equal Site.schema.serialise_http, last_response.body
+        result = Spot::JSON.parse(last_response.body)
+        result[:types].stringify_keys.should == Site.schema.export(@user)
       end
 
-      should "return scripts from js dir" do
-        get '/@spontaneous/js/test.js'
+      should "apply the current user's permissions to the exported schema" do
+        auth_get "/@spontaneous/metadata"
         assert last_response.ok?
-        # last_response.content_type.should == "application/javascript;charset=utf-8"
-        last_response.content_type.should == "application/javascript"
-        assert_equal File.read(@app_dir / 'js/test.js'), last_response.body
+        result = Spot::JSON.parse(last_response.body)
+        result[:types][:'BackTest.AdminAccess'][:fields].map { |f| f[:name] }.should == %w(title)
       end
 
-      should "return less rendered to css from css dir" do
-        get '/@spontaneous/css/test.css'
-        assert last_response.ok?
-        last_response.content_type.should == "text/css;charset=utf-8"
-        assert_equal "h1 { color: #4d926f; }\n", last_response.body
+      should "return info about the current user in the metadata" do
+        auth_get "/@spontaneous/metadata"
+        assert last_response.ok?, "Should have recieved a 200 OK but got a #{ last_response.status }"
+        result = Spot::JSON.parse(last_response.body)
+        result[:user][:email].should == "root@example.com"
+        result[:user][:login].should == "root"
+        result[:user][:name].should  == "root name"
+        result[:user][:developer].should  == false # although the login is root, the level is :editor
+      end
+
+      should "return an empty list of service URLs by default" do
+        auth_get "/@spontaneous/metadata"
+        assert last_response.ok?, "Should have recieved a 200 OK but got a #{ last_response.status }"
+        result = Spot::JSON.parse(last_response.body)
+        result[:services].should == []
+      end
+
+      should "return the configured list of service URLs in the metadata" do
+        Site.config.stubs(:services).returns([
+          {:title => "Google Analytics", :url => "http://google.com/analytics"},
+          {:title => "Facebook", :url => "http://facebook.com/spontaneous"}
+        ])
+        auth_get "/@spontaneous/metadata"
+        assert last_response.ok?, "Should have recieved a 200 OK but got a #{ last_response.status }"
+        result = Spot::JSON.parse(last_response.body)
+        result[:services].should == Site.config.services
+      end
+
+      should "return scripts from js dir" do
+        get '/@spontaneous/js/test.js'
+        assert last_response.ok?, "Expected a 200 but received a #{last_response.status}"
+        last_response.content_type.should == "application/javascript"
+        # Sprockets appends sone newlines and a semicolon onto our test file
+        assert_equal File.read(@app_dir / 'js/test.js') + "\n;\n", last_response.body
       end
 
       should "return a site map for root by default" do
@@ -227,15 +274,47 @@ class BackTest < MiniTest::Spec
         assert last_response.status == 404
       end
 
+      should "return the correct Last-Modified header for the site map" do
+        now = Time.at(Time.now.to_i + 10000)
+        S::Site.stubs(:modified_at).returns(now)
+        auth_get '/@spontaneous/map'
+        Time.httpdate(last_response.headers["Last-Modified"]).should == now
+        auth_get "/@spontaneous/location#{@project1.path}"
+        Time.httpdate(last_response.headers["Last-Modified"]).should == now
+      end
+
+      should "reply with a 304 Not Modified if the site hasn't been updated since last request" do
+        datestring = "Sat, 03 Mar 2012 00:49:44 GMT"
+        now = Time.httpdate(datestring)
+        S::Site.stubs(:modified_at).returns(now)
+        auth_get "/@spontaneous/map/#{@home.id}", {}, {"HTTP_IF_MODIFIED_SINCE" => datestring}
+        last_response.status.should == 304
+        auth_get "/@spontaneous/map", {}, {"HTTP_IF_MODIFIED_SINCE" => datestring}
+        last_response.status.should == 304
+        auth_get "/@spontaneous/location#{@project1.path}", {}, {"HTTP_IF_MODIFIED_SINCE" => datestring}
+        last_response.status.should == 304
+      end
+
+      should "return the map data if the site has been updated since last request" do
+        datestring1 = "Sat, 03 Mar 2012 00:49:44 GMT"
+        datestring2 = "Sat, 03 Mar 2012 01:49:44 GMT"
+        now = Time.httpdate(datestring2)
+        S::Site.stubs(:modified_at).returns(now)
+        auth_get "/@spontaneous/map/#{@home.id}", {}, {"HTTP_IF_MODIFIED_SINCE" => datestring1}
+        last_response.status.should == 200
+        auth_get "/@spontaneous/location#{@project1.path}", {}, {"HTTP_IF_MODIFIED_SINCE" => datestring1}
+        last_response.status.should == 200
+      end
+
       should "reorder pieces" do
         auth_post "/@spontaneous/content/#{@job2.id}/position/0"
         assert last_response.ok?
         last_response.content_type.should == "application/json;charset=utf-8"
         @home.reload
-        @home.in_progress.pieces.first.id.should == @job2.id
+        @home.in_progress.contents.first.id.should == @job2.id
 
         page = Content[@home.id]
-        page.in_progress.pieces.first.id.should == @job2.id
+        page.in_progress.contents.first.id.should == @job2.id
       end
 
       # should "reorder pages" do
@@ -280,6 +359,7 @@ class BackTest < MiniTest::Spec
           @home.fields.title.value.should ==  "Updated title"
           @home.fields.introduction.value.should ==  "<p>Updated intro</p>\n"
         end
+
         should "update box field values" do
           box = @job1.images
           box.fields.title.to_s.should_not == "Updated title"
@@ -349,7 +429,7 @@ class BackTest < MiniTest::Spec
         Spot::JSON.parse(last_response.body).should == {:id => @job1.id, :hidden => true}
         @job1.reload.visible?.should == false
         auth_post "/@spontaneous/toggle/#{@job1.id}"
-        assert last_response.ok?
+        assert last_response.ok?, "Expected status 200 but recieved #{last_response.status}"
         @job1.reload.visible?.should == true
         Spot::JSON.parse(last_response.body).should == {:id => @job1.id, :hidden => false}
       end
@@ -360,19 +440,36 @@ class BackTest < MiniTest::Spec
         Spontaneous.stubs(:reload!)
         @now = Time.now
         Time.stubs(:now).returns(@now)
+        @renderer = Spontaneous::Output.preview_renderer
       end
       should "return rendered root page" do
         get "/"
         assert last_response.ok?
         last_response.content_type.should == "text/html;charset=utf-8"
-        assert_equal S::Render.with_preview_renderer { @home.render }, last_response.body
+        assert_equal @renderer.render(@home.output(:html)), last_response.body
       end
 
       should "return rendered child-page" do
         get "/project1"
         assert last_response.ok?
         last_response.content_type.should == "text/html;charset=utf-8"
-        assert_equal S::Render.with_preview_renderer { @project1.render }, last_response.body
+        assert_equal @renderer.render(@project1.output(:html)), last_response.body
+      end
+
+      should "return alternate formats" do
+        Project.add_output :js
+        get "/project1.js"
+        assert last_response.ok?
+        last_response.content_type.should == "application/javascript;charset=utf-8"
+        assert_equal @renderer.render(@project1.output(:js)), last_response.body
+      end
+
+      should "allow pages to have css formats" do
+        Project.add_output :css
+        get "/project1.css"
+        assert last_response.ok?
+        last_response.content_type.should == "text/css;charset=utf-8"
+        assert_equal @renderer.render(@project1.output(:css)), last_response.body
       end
 
       should "return cache-busting headers" do
@@ -399,6 +496,21 @@ class BackTest < MiniTest::Spec
         assert last_response.ok?, "Should return 200 but got #{last_response.status}"
         last_response.body.should =~ /color: #ffeeff/
       end
+
+      should "compile CoffeeScript" do
+        get "/js/coffeescript.js"
+        assert last_response.ok?, "Should return 200 but got #{last_response.status}"
+        last_response.body.should =~ /square = function/
+        last_response.content_type.should == "application/javascript;charset=utf-8"
+      end
+
+      should "accept POST requests" do
+        Project.expects(:posted!).with(@project1)
+        Project.request :post do
+          Project.posted!(page)
+        end
+        post "/project1"
+      end
     end
 
     context "static files" do
@@ -488,15 +600,15 @@ class BackTest < MiniTest::Spec
 
       should "be able to wrap pieces around files using default addable class" do
         box = @job1.images
-        current_count = box.pieces.length
-        first_id = box.pieces.first.id.to_s
+        current_count = box.contents.length
+        first_id = box.contents.first.id.to_s
 
         auth_post "/@spontaneous/file/wrap/#{@job1.id}/#{box.schema_id.to_s}", "file" => ::Rack::Test::UploadedFile.new(@src_file, "image/jpeg")
         assert last_response.ok?
         last_response.content_type.should == "application/json;charset=utf-8"
         box = @job1.reload.images
-        first = box.pieces.first
-        box.pieces.length.should == current_count+1
+        first = box.contents.first
+        box.contents.length.should == current_count+1
         first.image.src.should =~ /^\/media(.+)\/#{File.basename(@src_file)}$/
           required_response = {
           :position => 0,
@@ -505,24 +617,34 @@ class BackTest < MiniTest::Spec
         Spot::JSON.parse(last_response.body).should == required_response
       end
     end
-    context "pieces" do
+    context "Box contents" do
       setup do
         Spontaneous.stubs(:reload!)
       end
-      should "default to being added at the top" do
-        current_count = @home.in_progress.pieces.length
-        first_id = @home.in_progress.pieces.first.id
-        @home.in_progress.pieces.first.class.name.should_not == "BackTest::Image"
+
+      should "allow addition of pages" do
+        current_count = @home.projects.length
+        auth_post "/@spontaneous/add/#{@home.id}/#{@home.projects.schema_id.to_s}/#{Project.schema_id.to_s}"
+        assert last_response.ok?, "Recieved #{last_response.status} not 200"
+        @home.reload
+        @home.projects.length.should == current_count+1
+        @home.projects.first.must_be_instance_of(Project)
+      end
+
+      should "default to adding entries at the top" do
+        current_count = @home.in_progress.contents.length
+        first_id = @home.in_progress.contents.first.id
+        @home.in_progress.contents.first.class.name.should_not == "BackTest::Image"
         auth_post "/@spontaneous/add/#{@home.id}/#{@home.in_progress.schema_id.to_s}/#{Image.schema_id.to_s}"
         assert last_response.ok?, "Recieved #{last_response.status} not 200"
         last_response.content_type.should == "application/json;charset=utf-8"
         @home.reload
-        @home.in_progress.pieces.length.should == current_count+1
-        @home.in_progress.pieces.first.id.should_not == first_id
-        @home.in_progress.pieces.first.class.name.should == "BackTest::Image"
+        @home.in_progress.contents.length.should == current_count+1
+        @home.in_progress.contents.first.id.should_not == first_id
+        @home.in_progress.contents.first.class.name.should == "BackTest::Image"
         required_response = {
           :position => 0,
-          :entry => @home.in_progress.pieces.first.export
+          :entry => @home.in_progress.contents.first.export
         }
         Spot::JSON.parse(last_response.body).should == required_response
       end
@@ -536,22 +658,30 @@ class BackTest < MiniTest::Spec
       end
 
       should "be addable at the bottom" do
-        current_count = @home.in_progress.pieces.length
-        last_id = @home.in_progress.pieces.last.id
-        @home.in_progress.pieces.last.class.name.should_not == "BackTest::Image"
+        current_count = @home.in_progress.contents.length
+        last_id = @home.in_progress.contents.last.id
+        @home.in_progress.contents.last.class.name.should_not == "BackTest::Image"
         auth_post "/@spontaneous/add/#{@home.id}/#{@home.in_progress.schema_id.to_s}/#{Image.schema_id.to_s}", :position => -1
         assert last_response.ok?, "Recieved #{last_response.status} not 200"
         last_response.content_type.should == "application/json;charset=utf-8"
         @home.reload
-        @home.in_progress.pieces.length.should == current_count+1
-        @home.in_progress.pieces.last.id.should_not == last_id
-        @home.in_progress.pieces.last.class.name.should == "BackTest::Image"
+        @home.in_progress.contents.length.should == current_count+1
+        @home.in_progress.contents.last.id.should_not == last_id
+        @home.in_progress.contents.last.class.name.should == "BackTest::Image"
         required_response = {
           :position => -1,
-          :entry => @home.in_progress.pieces.last.export
+          :entry => @home.in_progress.contents.last.export
         }
         Spot::JSON.parse(last_response.body).should == required_response
       end
+
+      should "create pieces with the piece owner set to the logged in user" do
+        auth_post "/@spontaneous/add/#{@home.id}/#{@home.in_progress.schema_id.to_s}/#{Image.schema_id.to_s}", :position => 0
+        assert last_response.ok?, "Recieved #{last_response.status} not 200"
+        @home.reload
+        @home.in_progress.first.created_by_id.should == @user.id
+        @home.in_progress.first.created_by.should == @user
+      end
     end
 
     context "Page paths" do
@@ -586,8 +716,24 @@ class BackTest < MiniTest::Spec
         last_response.content_type.should == "application/json;charset=utf-8"
         Spot::JSON.parse(last_response.body).should == %w(project2 project3)
       end
+      should "be syncable with the page title" do
+        @project1.title = "This is Project"
+        @project1.save
+        auth_post "/@spontaneous/slug/#{@project1.id}/titlesync"
+        assert last_response.ok?
+        last_response.content_type.should == "application/json;charset=utf-8"
+        @project1.reload
+        @project1.path.should == "/this-is-project"
+        Spot::JSON.parse(last_response.body).should == {:path => '/this-is-project', :slug => 'this-is-project' }
+      end
     end
     context "UIDs" do
+      setup do
+        # editing UIDs is a developer only activity
+        @user.update(:level => Spontaneous::Permissions[:root])
+        @user.save
+      end
+
       should "be editable" do
         uid = "fishy"
         @project1.uid.should_not == uid
@@ -603,23 +749,13 @@ class BackTest < MiniTest::Spec
         orig = @project1.uid
         @project1.uid.should_not == uid
         auth_post "/@spontaneous/uid/#{@project1.id}", 'uid' => uid
-        assert last_response.status == 401
+        assert last_response.status == 403
         @project1.reload.uid.should == orig
       end
     end
     context "Request cache" do
       setup do
         Spontaneous.stubs(:reload!)
-        Change.delete
-      end
-      should "wrap all updates in a Change.record" do
-        params = {
-          "field[#{@job1.fields.title.schema_id.to_s}][value]" => "Updated field_name_1"
-        }
-        Change.count.should == 0
-        auth_post "/@spontaneous/save/#{@job1.id}", params
-        Change.count.should == 1
-        Change.first.modified_list.should == [@home.id]
       end
 
     end
@@ -627,38 +763,29 @@ class BackTest < MiniTest::Spec
     context "Publishing" do
       setup do
         Spontaneous.stubs(:reload!)
+        S::Permissions::UserLevel[:editor].stubs(:can_publish?).returns(true)
         @now = Time.now
         Time.stubs(:now).returns(@now)
-        Change.delete
-        @c1 = Change.new
-        @c1.push(@home)
-        @c1.push(@project1)
-        @c1.save
-        @c2 = Change.new
-        @c2.push(@home)
-        @c2.push(@project1)
-        @c2.save
       end
 
       teardown do
-        Change.delete
       end
 
       should "be able to retrieve a serialised list of all unpublished changes" do
         auth_get "/@spontaneous/publish/changes"
-        assert last_response.ok?
+        assert last_response.ok?, "Expected 200 recieved #{last_response.status}"
         last_response.content_type.should == "application/json;charset=utf-8"
         last_response.body.should == Change.serialise_http
       end
 
       should "be able to start a publish with a set of change sets" do
-        Site.expects(:publish_changes).with([@c1.id])
-        auth_post "/@spontaneous/publish/publish", :change_set_ids => [@c1.id]
-        assert last_response.ok?
+        Site.expects(:publish_pages).with([@project1.id])
+        auth_post "/@spontaneous/publish/publish", :page_ids => [@project1.id]
+        assert last_response.ok?, "Expected 200 recieved #{last_response.status}"
       end
 
       should "not launch publish if list of changes is empty" do
-        Site.expects(:publish_changes).with().never
+        Site.expects(:publish_pages).with().never
         auth_post "/@spontaneous/publish/publish", :change_set_ids => ""
         assert last_response.status == 400, "Expected 400, recieved #{last_response.status}"
 
@@ -666,9 +793,9 @@ class BackTest < MiniTest::Spec
         assert last_response.status == 400
       end
       should "recognise when the list of changes is complete" do
-        Site.expects(:publish_changes).with([@c1.id, @c2.id])
-        auth_post "/@spontaneous/publish/publish", :change_set_ids => [@c1.id, @c2.id]
-        assert last_response.ok?
+        Site.expects(:publish_pages).with([@home.id, @project1.id])
+        auth_post "/@spontaneous/publish/publish", :page_ids => [@home.id, @project1.id]
+        assert last_response.ok?, "Expected 200 recieved #{last_response.status}"
       end
     end
 
@@ -677,7 +804,6 @@ class BackTest < MiniTest::Spec
         Spontaneous.stubs(:reload!)
         @root_class = Site.root.class
         Content.delete
-        Change.delete
       end
       should "raise a 406 Not Acceptable error when downloading page details" do
         auth_get "/@spontaneous/location/"
@@ -697,14 +823,9 @@ class BackTest < MiniTest::Spec
         assert last_response.status == 403
         Content.count.should == 1
       end
-      should "have a change reflecting creation of root" do
-        Change.count.should == 0
-        auth_post "/@spontaneous/root", 'type' => @root_class.schema_id
-        Change.count.should == 1
-      end
     end
 
-    context "Aliases" do
+    context "when working with aliases" do
       setup do
         Spontaneous.stubs(:reload!)
       end
@@ -715,41 +836,62 @@ class BackTest < MiniTest::Spec
       should "be able to retrieve a list of potential targets" do
         auth_get "/@spontaneous/targets/#{LinkedJob.schema_id}/#{@home.id}/#{@home.in_progress.schema_id}"
         assert last_response.ok?
-        Spot::JSON.parse(last_response.body).should == LinkedJob.targets(@home, @home.in_progress).map do |job|
-          {
-            :id => job.id,
+        expected = LinkedJob.targets(@home, @home.in_progress)
+        response = Spot::JSON.parse(last_response.body)
+        response[:pages].should == 1
+        response[:page].should == 1
+        response[:total].should == expected.length
+
+        response[:targets].should == expected.map { |job|
+          { :id => job.id,
             :title => job.title.to_s,
-            :icon => job.image.export
-          }
-        end
+            :icon => job.image.export }
+        }
+      end
+
+      should "be able to filter targets using a search string" do
+        auth_get "/@spontaneous/targets/#{LinkedJob.schema_id}/#{@home.id}/#{@home.in_progress.schema_id}", {"query" => "job 3"}
+        assert last_response.ok?
+        expected = [@job3]
+        response = Spot::JSON.parse(last_response.body)
+        response[:pages].should == 1
+        response[:page].should == 1
+        response[:total].should == expected.length
+        response[:targets].should == expected.map { |job|
+          { :id => job.id,
+            :title => job.title.to_s,
+            :icon => job.image.export }
+        }
       end
+
       should "be able to add an alias to a box" do
-        @home.featured_jobs.pieces.length.should == 0
+        @home.featured_jobs.contents.length.should == 0
         auth_post "/@spontaneous/alias/#{@home.id}/#{HomePage.boxes[:featured_jobs].schema_id.to_s}", 'alias_id' => LinkedJob.schema_id.to_s, 'target_id' => Job.first.id, "position" => 0
         assert last_response.ok?, "Recieved #{last_response.status} not 200"
         last_response.content_type.should == "application/json;charset=utf-8"
         @home.reload
-        @home.featured_jobs.pieces.length.should == 1
+        @home.featured_jobs.contents.length.should == 1
         a = @home.featured_jobs.first
         a.alias?.should be_true
         a.target.should == Job.first
         required_response = {
           :position => 0,
-          :entry => @home.featured_jobs.pieces.first.export(@user)
+          :entry => @home.featured_jobs.contents.first.export(@user)
         }
         Spot::JSON.parse(last_response.body).should == required_response
       end
+
       should "be able to add an alias to a box at any position" do
         @home.featured_jobs << Job.new
         @home.featured_jobs << Job.new
         @home.featured_jobs << Job.new
         @home.save.reload
-        @home.featured_jobs.pieces.length.should == 3
+        @home.featured_jobs.contents.length.should == 3
         auth_post "/@spontaneous/alias/#{@home.id}/#{HomePage.boxes[:featured_jobs].schema_id.to_s}", 'alias_id' => LinkedJob.schema_id.to_s, 'target_id' => Job.first.id, "position" => 2
         assert last_response.ok?, "Recieved #{last_response.status} not 200"
         last_response.content_type.should == "application/json;charset=utf-8"
         @home.reload
-        @home.featured_jobs.pieces.length.should == 4
+        @home.featured_jobs.contents.length.should == 4
         a = @home.featured_jobs[2]
         a.alias?.should be_true
         a.target.should == Job.first
@@ -759,6 +901,40 @@ class BackTest < MiniTest::Spec
         }
         Spot::JSON.parse(last_response.body).should == required_response
       end
+
+      context "of non-content targets" do
+        setup do
+          @target_id = target_id = 9999
+          @target = target = mock()
+          @target.stubs(:id).returns(@target_id)
+          @target.stubs(:title).returns("custom object")
+          @target.stubs(:to_json).returns({:title => "custom object", :id => @target_id}.to_json)
+          @target.stubs(:alias_title).returns("custom object")
+          @target.stubs(:exported_alias_icon).returns(nil)
+
+          LinkedSomething = Class.new(Piece) do
+            alias_of proc { [target] }, :lookup => lambda { |id|
+            return target if id == target_id
+            nil
+          }
+          end
+        end
+
+        teardown do
+          BackTest.send(:remove_const, LinkedSomething) rescue nil
+        end
+
+        should "interface with lists of non-content targets" do
+          box = @home.boxes[:featured_jobs]
+          box._prototype.allow LinkedSomething
+          auth_post "/@spontaneous/alias/#{@home.id}/#{box.schema_id.to_s}", 'alias_id' => LinkedSomething.schema_id.to_s, 'target_id' => @target_id, "position" => 0
+          assert last_response.status == 200, "Expected a 200 but got #{last_response.status}"
+          @home.reload
+          a = @home.featured_jobs[0]
+          a.alias?.should be_true
+          a.target.should == @target
+        end
+      end
     end
 
     context "Schema conflicts" do
@@ -780,6 +956,7 @@ class BackTest < MiniTest::Spec
         lambda { S.schema.validate! }.must_raise(Spontaneous::SchemaModificationError)
         # hammer, meet nut
         S::Rack::Back::EditingInterface.use Spontaneous::Rack::Reloader
+        S::Rack::Back::Preview.use Spontaneous::Rack::Reloader
         Spontaneous::Loader.stubs(:reload!)
       end
 
@@ -803,6 +980,16 @@ class BackTest < MiniTest::Spec
         last_response.body.should =~ %r{<input type="hidden" name="ref" value="#{@af1.schema_name}"}
       end
 
+      should "present a dialogue page with possible solutions when in preview mode" do
+        auth_get '/'
+        assert last_response.status == 412, "Schema validation errors should raise a 412 but instead recieved a #{last_response.status}"
+        last_response.body.should =~ %r{<form action="/@spontaneous/schema/delete" method="post"}
+        last_response.body.should =~ %r{<input type="hidden" name="uid" value="#{@df1.schema_id}"}
+
+        last_response.body.should =~ %r{<form action="/@spontaneous/schema/rename" method="post"}
+        last_response.body.should =~ %r{<input type="hidden" name="ref" value="#{@af1.schema_name}"}
+      end
+
       should "perform renames via a link" do
         action ="/@spontaneous/schema/rename"
         auth_post action, "uid" => @df1.schema_id, "ref" => @af1.schema_name, "origin" => "/@spontaneous"
@@ -912,15 +1099,15 @@ class BackTest < MiniTest::Spec
           last_response.status.should == 200
         end
         box = @job1.images
-        current_count = box.pieces.length
-        first_id = box.pieces.first.id.to_s
+        current_count = box.contents.length
+        first_id = box.contents.first.id.to_s
 
         auth_post "/@spontaneous/shard/wrap/#{@job1.id}/#{box.schema_id.to_s}", "filename" => "rose.jpg", "shards" => hashes, "mime_type" => "image/jpeg"
         assert last_response.ok?, "Should have got status 200 but got #{last_response.status}"
         last_response.content_type.should == "application/json;charset=utf-8"
         box = @job1.reload.images
-        first = box.pieces.first
-        box.pieces.length.should == current_count+1
+        first = box.contents.first
+        box.contents.length.should == current_count+1
         first.image.src.should =~ %r{^(.+)/rose\.jpg$}
         required_response = {
           :position => 0,
@@ -929,6 +1116,74 @@ class BackTest < MiniTest::Spec
         Spot::JSON.parse(last_response.body).should == required_response
       end
     end
+
+
+    context "making modifications" do
+      setup do
+        Spontaneous.stubs(:reload!)
+      end
+      should "record the currently logged in user" do
+        page = @home.in_progress.last
+        auth_post "/@spontaneous/toggle/#{page.id}"
+        assert last_response.ok?, "Expected status 200 but received #{last_response.status}"
+        page.reload
+        page.pending_modifications(:visibility).first.user.should == @user
+      end
+    end
+
+    context "date fields" do
+      setup do
+        Spontaneous.stubs(:reload!)
+      end
+      should "provide a format value" do
+        field = Job.field :date, :date, :format => "%Y %d %a"
+        auth_get "/@spontaneous/metadata"
+        schema = Spot::JSON.parse(last_response.body)
+        field = schema[:types][:"BackTest.Job"][:fields].detect { |f| f[:name] == "date" }
+        field[:date_format].should ==  "%Y %d %a"
+      end
+    end
+
+    context "select fields" do
+      setup do
+        Spontaneous.stubs(:reload!)
+      end
+
+      teardown do
+      end
+
+      should "be able to provide a static value list" do
+        # static lists should be included in the field definitions
+        field = Job.field :client, :select, :options => [["a", "Value A"], ["b", "Value B"]]
+        auth_get "/@spontaneous/metadata"
+
+        schema = Spot::JSON.parse(last_response.body)
+        field = schema[:types][:"BackTest.Job"][:fields].detect { |f| f[:name] == "client" }
+        field[:option_list].should == [["a", "Value A"], ["b", "Value B"]]
+      end
+
+      should "be able to provide a dynamic value list" do
+        list = mock()
+        options = [["a", "Value A"], ["b", "Value B"]]
+        list.expects(:values).with(@job1).returns(options)
+        field = Job.field :client, :select, :options => proc { |content| list.values(content) }
+        auth_get "/@spontaneous/options/#{field.schema_id}/#{@job1.id}"
+        assert last_response.ok?,  "Expected status 200 but received #{last_response.status}"
+        result = Spot::JSON.parse(last_response.body)
+        result.should == options
+      end
+
+      should "be able to provide a dynamic value list for a box field" do
+        list = mock()
+        options = [["a", "Value A"], ["b", "Value B"]]
+        list.expects(:values).with(@job1.images).returns(options)
+        field = Job.boxes.images.instance_class.field :client, :select, :options => proc { |box| list.values(box) }
+        auth_get "/@spontaneous/options/#{field.schema_id}/#{@job1.id}/#{Job.boxes.images.schema_id}"
+        assert last_response.ok?,  "Expected status 200 but received #{last_response.status}"
+        result = Spot::JSON.parse(last_response.body)
+        result.should == options
+      end
+    end
   end
 end