t#32046:

[pettanr/pettanr.git] / spec / controllers / authors_controller_spec.rb

diff --git a/spec/controllers/authors_controller_spec.rb b/spec/controllers/authors_controller_spec.rb
index 1abf51b..29773ca 100644 (file)
--- a/spec/controllers/authors_controller_spec.rb
+++ b/spec/controllers/authors_controller_spec.rb
@@ -4,10 +4,13 @@ require 'spec_helper'
 
 describe AuthorsController do
   before do
+    SpeechBalloonTemplate.delete_all
     @admin =FactoryGirl.create :admin
     @sp = FactoryGirl.create :system_picture
     @lg = FactoryGirl.create :license_group
     @license = FactoryGirl.create :license, :license_group_id => @lg.id, :system_picture_id => @sp.id
+    @speech_balloon_template = FactoryGirl.create :speech_balloon_template, "name" => "circle@pettan.com", "classname" => "CircleSpeechBalloon", "caption" => "cc",  "system_picture_id" => @sp.id, "settings" => '{}'
+    @writing_format = FactoryGirl.create :writing_format
     @user = FactoryGirl.create( :user_yas)
     @author = FactoryGirl.create :author, :user_id => @user.id
     @artist = FactoryGirl.create :artist_yas, :author_id => @author.id
@@ -59,6 +62,10 @@ if MagicNumber['run_mode'] == 1
         assigns(:authors).should have_at_least(3).items
       end
       context 'html形式' do
+        it '@paginateにページ制御を取得している' do
+          get :index
+          assigns(:paginate).is_a?(Kaminari::PaginatableArray).should be_true
+        end
         it 'indexテンプレートを描画する' do
           get :index
           response.should render_template("index")
@@ -243,75 +250,80 @@ if MagicNumber['run_mode'] == 1
       @other_user = FactoryGirl.create( :user_yas)
       @other_author = FactoryGirl.create :author, :user_id => @other_user.id
       @other_artist = FactoryGirl.create :artist_yas, :author_id => @other_author.id
-      @comic = FactoryGirl.create :comic, :author_id => @other_user.author.id
-      Comic.stub(:himlist).and_return([@comic, @comic, @comic])
+      @scroll = FactoryGirl.create :scroll, :author_id => @other_user.author.id
+      Author.stub(:show).and_return(@other_author)
+      Scroll.stub(:himlist).and_return([@scroll, @scroll, @scroll])
       sign_in @user
     end
     context 'パラメータpageについて' do
       it '@pageに値が入る' do
-        get :comics, :id => @other_author.id, :page => 5
+        get :scrolls, :id => @other_author.id, :page => 5
         assigns(:page).should eq 5
       end
       it '省略されると@pageに1値が入る' do
-        get :comics, :id => @other_author.id
+        get :scrolls, :id => @other_author.id
         assigns(:page).should eq 1
       end
       it '与えられたpage_sizeがセットされている' do
-        get :comics, :id => @other_author.id, :page_size => 15
+        get :scrolls, :id => @other_author.id, :page_size => 15
         assigns(:page_size).should eq 15
       end
       it '省略されると@page_sizeにデフォルト値が入る' do
-        get :comics, :id => @other_author.id
-        assigns(:page_size).should eq Author.default_comic_page_size
+        get :scrolls, :id => @other_author.id
+        assigns(:page_size).should eq Author.default_scroll_page_size
       end
       it '最大を超えると@page_sizeにデフォルト最大値が入る' do
-        get :comics, :id => @other_author.id, :page_size => 1500
-        assigns(:page_size).should eq Author.comic_max_page_size
+        get :scrolls, :id => @other_author.id, :page_size => 1500
+        assigns(:page_size).should eq Author.scroll_max_page_size
       end
       it '不正な値が入ると@page_sizeにデフォルト最大値が入る' do
-        get :comics, :id => @other_author.id, :page_size => 0
-        assigns(:page_size).should eq Author.default_comic_page_size
+        get :scrolls, :id => @other_author.id, :page_size => 0
+        assigns(:page_size).should eq Author.default_scroll_page_size
       end
     end
     context 'つつがなく終わるとき' do
       it 'ステータスコード200 OKを返す' do
-        get :comics, :id => @other_author.id
+        get :scrolls, :id => @other_author.id
         response.should be_success 
       end
       it '作家モデルに単体取得を問い合わせている' do
         Author.should_receive(:show).exactly(1)
-        get :comics, :id => @other_author.id
+        get :scrolls, :id => @other_author.id
       end
       it 'コミックモデルに一覧を問い合わせている' do
-        Comic.should_receive(:himlist).exactly(1)
-        get :comics, :id => @other_author.id
+        Scroll.should_receive(:himlist).exactly(1)
+        get :scrolls, :id => @other_author.id
       end
-      it '@comicsにリストを取得している' do
-        get :comics, :id => @other_author.id
-        assigns(:comics).should have_at_least(3).items
+      it '@scrollsにリストを取得している' do
+        get :scrolls, :id => @other_author.id
+        assigns(:scrolls).should have_at_least(3).items
       end
       context 'html形式' do
-        it 'comicsテンプレートを描画する' do
-          get :comics, :id => @other_author.id
-          response.should render_template("comics")
+        it '@paginateにページ制御を取得している' do
+          get :scrolls, :id => @other_author.id
+          assigns(:paginate).is_a?(Kaminari::PaginatableArray).should be_true
+        end
+        it 'scrollsテンプレートを描画する' do
+          get :scrolls, :id => @other_author.id
+          response.should render_template("scrolls")
         end
       end
       context 'json形式' do
         it 'jsonデータを返す' do
-          get :comics, :id => @other_author.id, :format => :json
+          get :scrolls, :id => @other_author.id, :format => :json
           lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
         end
         it 'コミックモデルにjson一覧出力オプションを問い合わせている' do
-          Comic.should_receive(:list_json_opt).exactly(1)
-          get :comics, :id => @other_author.id, :format => :json
+          Scroll.should_receive(:list_json_opt).exactly(1)
+          get :scrolls, :id => @other_author.id, :format => :json
         end
         it 'データがリスト構造になっている' do
-          get :comics, :id => @other_author.id, :format => :json
+          get :scrolls, :id => @other_author.id, :format => :json
           json = JSON.parse response.body
           json.should have_at_least(3).items
         end
         it 'リストの先頭くらいはコミックっぽいものであって欲しい' do
-          get :comics, :id => @other_author.id, :format => :json
+          get :scrolls, :id => @other_author.id, :format => :json
           json = JSON.parse response.body
           json.first.has_key?("title").should be_true
           json.first.has_key?("visible").should be_true
@@ -324,21 +336,21 @@ if MagicNumber['run_mode'] == 1
       end
       context 'html形式' do
         it 'ステータスコード302 Foundを返す' do
-          get :comics, :id => @other_author.id
+          get :scrolls, :id => @other_author.id
           response.status.should eq 302
         end
         it 'サインインページへ遷移する' do
-          get :comics, :id => @other_author.id
+          get :scrolls, :id => @other_author.id
           response.should redirect_to '/users/sign_in'
         end
       end
       context 'json形式' do
         it 'ステータスコード401 Unauthorizedを返す' do
-          get :comics, :id => @other_author.id, :format => :json
+          get :scrolls, :id => @other_author.id, :format => :json
           response.status.should eq 401
         end
         it '応答メッセージにUnauthorizedを返す' do
-          get :comics, :id => @other_author.id, :format => :json
+          get :scrolls, :id => @other_author.id, :format => :json
           response.message.should match(/Unauthorized/)
         end
       end
@@ -349,7 +361,7 @@ if MagicNumber['run_mode'] == 1
         sign_in @admin
       end
       it 'ステータスコード200 OKを返す' do
-        get :comics, :id => @other_author.id
+        get :scrolls, :id => @other_author.id
         response.should be_success 
       end
     end
@@ -358,7 +370,7 @@ if MagicNumber['run_mode'] == 1
         @author.destroy
       end
       it 'ステータスコード200 OKを返す' do
-        get :comics, :id => @other_author.id
+        get :scrolls, :id => @other_author.id
         response.should be_success 
       end
     end
@@ -369,80 +381,85 @@ if MagicNumber['run_mode'] == 1
       @other_user = FactoryGirl.create( :user_yas)
       @other_author = FactoryGirl.create :author, :user_id => @other_user.id
       @other_artist = FactoryGirl.create :artist_yas, :author_id => @other_author.id
-      @comic = FactoryGirl.create :comic, :author_id => @other_user.author.id
+      @scroll = FactoryGirl.create :scroll, :author_id => @other_user.author.id
       @panel = FactoryGirl.create :panel, :author_id => @other_user.author.id
-      @story = FactoryGirl.create :story, :t => 0, :comic_id => @comic.id, :panel_id => @panel.id, :author_id => @other_user.author.id
-      Story.stub(:himlist).and_return([@story, @story, @story])
+      @scroll_panel = FactoryGirl.create :scroll_panel, :t => 0, :scroll_id => @scroll.id, :panel_id => @panel.id, :author_id => @other_user.author.id
+      Author.stub(:show).and_return(@other_author)
+      ScrollPanel.stub(:himlist).and_return([@scroll_panel, @scroll_panel, @scroll_panel])
       sign_in @user
     end
     context 'パラメータpageについて' do
       it '@pageに値が入る' do
-        get :stories, :id => @other_author.id, :page => 5
+        get :scroll_panels, :id => @other_author.id, :page => 5
         assigns(:page).should eq 5
       end
       it '省略されると@pageに1値が入る' do
-        get :stories, :id => @other_author.id
+        get :scroll_panels, :id => @other_author.id
         assigns(:page).should eq 1
       end
       it '与えられたpage_sizeがセットされている' do
-        get :stories, :id => @other_author.id, :page_size => 15
+        get :scroll_panels, :id => @other_author.id, :page_size => 15
         assigns(:page_size).should eq 15
       end
       it '省略されると@page_sizeにデフォルト値が入る' do
-        get :stories, :id => @other_author.id
-        assigns(:page_size).should eq Author.default_story_page_size
+        get :scroll_panels, :id => @other_author.id
+        assigns(:page_size).should eq Author.default_scroll_panel_page_size
       end
       it '最大を超えると@page_sizeにデフォルト最大値が入る' do
-        get :stories, :id => @other_author.id, :page_size => 1500
-        assigns(:page_size).should eq Author.story_max_page_size
+        get :scroll_panels, :id => @other_author.id, :page_size => 1500
+        assigns(:page_size).should eq Author.scroll_panel_max_page_size
       end
       it '不正な値が入ると@page_sizeにデフォルト最大値が入る' do
-        get :stories, :id => @other_author.id, :page_size => 0
-        assigns(:page_size).should eq Author.default_story_page_size
+        get :scroll_panels, :id => @other_author.id, :page_size => 0
+        assigns(:page_size).should eq Author.default_scroll_panel_page_size
       end
     end
     context 'つつがなく終わるとき' do
       it 'ステータスコード200 OKを返す' do
-        get :stories, :id => @other_author.id
+        get :scroll_panels, :id => @other_author.id
         response.should be_success 
       end
       it '作家モデルに単体取得を問い合わせている' do
         Author.should_receive(:show).exactly(1)
-        get :stories, :id => @other_author.id
+        get :scroll_panels, :id => @other_author.id
       end
       it 'ストーリーモデルに他作家のストーリー一覧を問い合わせている' do
-        Story.should_receive(:himlist).exactly(1)
-        get :stories, :id => @other_author.id
+        ScrollPanel.should_receive(:himlist).exactly(1)
+        get :scroll_panels, :id => @other_author.id
       end
-      it '@storiesにリストを取得している' do
-        get :stories, :id => @other_author.id
-        assigns(:stories).should have_at_least(3).items
+      it '@scroll_panelsにリストを取得している' do
+        get :scroll_panels, :id => @other_author.id
+        assigns(:scroll_panels).should have_at_least(3).items
       end
       context 'html形式' do
-        it 'storiesテンプレートを描画する' do
-          get :stories, :id => @other_author.id
-          response.should render_template("stories")
+        it '@paginateにページ制御を取得している' do
+          get :scroll_panels, :id => @other_author.id
+          assigns(:paginate).is_a?(Kaminari::PaginatableArray).should be_true
+        end
+        it 'scroll_panelsテンプレートを描画する' do
+          get :scroll_panels, :id => @other_author.id
+          response.should render_template("scroll_panels")
         end
       end
       context 'json形式' do
         it 'jsonデータを返す' do
-          get :stories, :id => @other_author.id, :format => :json
+          get :scroll_panels, :id => @other_author.id, :format => :json
           lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
         end
         it 'ストーリーモデルにjson一覧出力オプションを問い合わせている' do
-          Story.should_receive(:list_json_opt).exactly(1)
-          get :stories, :id => @other_author.id, :format => :json
+          ScrollPanel.should_receive(:list_json_opt).exactly(1)
+          get :scroll_panels, :id => @other_author.id, :format => :json
         end
         it 'データがリスト構造になっている' do
-          get :stories, :id => @other_author.id, :format => :json
+          get :scroll_panels, :id => @other_author.id, :format => :json
           json = JSON.parse response.body
           json.should have_at_least(3).items
         end
         it 'リストの先頭くらいはストーリーっぽいものであって欲しい' do
-          get :stories, :id => @other_author.id, :format => :json
+          get :scroll_panels, :id => @other_author.id, :format => :json
           json = JSON.parse response.body
           json.first.has_key?("panel_id").should be_true
-          json.first.has_key?("comic_id").should be_true
+          json.first.has_key?("scroll_id").should be_true
           json.first.has_key?("t").should be_true
         end
       end
@@ -453,21 +470,21 @@ if MagicNumber['run_mode'] == 1
       end
       context 'html形式' do
         it 'ステータスコード302 Foundを返す' do
-          get :stories, :id => @other_author.id
+          get :scroll_panels, :id => @other_author.id
           response.status.should eq 302
         end
         it 'サインインページへ遷移する' do
-          get :stories, :id => @other_author.id
+          get :scroll_panels, :id => @other_author.id
           response.should redirect_to '/users/sign_in'
         end
       end
       context 'json形式' do
         it 'ステータスコード401 Unauthorizedを返す' do
-          get :stories, :id => @other_author.id, :format => :json
+          get :scroll_panels, :id => @other_author.id, :format => :json
           response.status.should eq 401
         end
         it '応答メッセージにUnauthorizedを返す' do
-          get :stories, :id => @other_author.id, :format => :json
+          get :scroll_panels, :id => @other_author.id, :format => :json
           response.message.should match(/Unauthorized/)
         end
       end
@@ -478,7 +495,7 @@ if MagicNumber['run_mode'] == 1
         sign_in @admin
       end
       it 'ステータスコード200 OKを返す' do
-        get :stories, :id => @other_author.id
+        get :scroll_panels, :id => @other_author.id
         response.should be_success 
       end
     end
@@ -487,7 +504,7 @@ if MagicNumber['run_mode'] == 1
         @author.destroy
       end
       it 'ステータスコード200 OKを返す' do
-        get :stories, :id => @other_author.id
+        get :scroll_panels, :id => @other_author.id
         response.should be_success 
       end
     end
@@ -499,6 +516,7 @@ if MagicNumber['run_mode'] == 1
       @other_author = FactoryGirl.create :author, :user_id => @other_user.id
       @other_artist = FactoryGirl.create :artist_yas, :author_id => @other_author.id
       @panel = FactoryGirl.create :panel, :author_id => @other_author.id
+      Author.stub(:show).and_return(@other_author)
       Panel.stub(:himlist).and_return([@panel, @panel, @panel])
       sign_in @user
     end
@@ -546,6 +564,10 @@ if MagicNumber['run_mode'] == 1
         assigns(:panels).should have_at_least(3).items
       end
       context 'html形式' do
+        it '@paginateにページ制御を取得している' do
+          get :panels, :id => @other_author.id
+          assigns(:paginate).is_a?(Kaminari::PaginatableArray).should be_true
+        end
         it 'panelsテンプレートを描画する' do
           get :panels, :id => @other_author.id
           response.should render_template("panels")
@@ -618,6 +640,552 @@ if MagicNumber['run_mode'] == 1
     end
   end
   
+  describe '対象作家のコマ絵一覧表示に於いて' do
+    before do
+      @other_user = FactoryGirl.create( :user_yas)
+      @other_author = FactoryGirl.create :author, :user_id => @other_user.id
+      @other_artist = FactoryGirl.create :artist_yas, :author_id => @other_author.id
+      @op = FactoryGirl.create :original_picture, :artist_id => @artist.id
+      @p = FactoryGirl.create :picture, :original_picture_id => @op.id, :license_id => @license.id, :artist_id => @artist.id
+      @rp = FactoryGirl.create :resource_picture, :artist_id => @artist.id, :license_id => @license.id, :original_picture_id => @op.id, :picture_id => @p.id
+      @panel = FactoryGirl.create :panel, :author_id => @author.id
+      @panel_picture = FactoryGirl.create :panel_picture, :picture_id => @p.id, :panel_id => @panel.id, :width => @p.width, :height => @p.height
+      Author.stub(:show).and_return(@other_author)
+      PanelPicture.stub(:himlist).and_return([@panel_picture, @panel_picture, @panel_picture])
+      sign_in @user
+    end
+    context 'パラメータpageについて' do
+      it '@pageに値が入る' do
+        get :panel_pictures, :id => @other_author.id, :page => 5
+        assigns(:page).should eq 5
+      end
+      it '省略されると@pageに1値が入る' do
+        get :panel_pictures, :id => @other_author.id
+        assigns(:page).should eq 1
+      end
+      it '与えられたpage_sizeがセットされている' do
+        get :panel_pictures, :id => @other_author.id, :page_size => 15
+        assigns(:page_size).should eq 15
+      end
+      it '省略されると@page_sizeにデフォルト値が入る' do
+        get :panel_pictures, :id => @other_author.id
+        assigns(:page_size).should eq Author.default_panel_picture_page_size
+      end
+      it '最大を超えると@page_sizeにデフォルト最大値が入る' do
+        get :panel_pictures, :id => @other_author.id, :page_size => 1500
+        assigns(:page_size).should eq Author.panel_picture_max_page_size
+      end
+      it '不正な値が入ると@page_sizeにデフォルト最大値が入る' do
+        get :panel_pictures, :id => @other_author.id, :page_size => 0
+        assigns(:page_size).should eq Author.default_panel_picture_page_size
+      end
+    end
+    context 'つつがなく終わるとき' do
+      it 'ステータスコード200 OKを返す' do
+        get :panel_pictures, :id => @other_author.id
+        response.should be_success 
+      end
+      it '作家モデルに単体取得を問い合わせている' do
+        Author.should_receive(:show).exactly(1)
+        get :panel_pictures, :id => @other_author.id
+      end
+      it 'コマ絵モデルに他作家のコマ絵一覧を問い合わせている' do
+        PanelPicture.should_receive(:himlist).exactly(1)
+        get :panel_pictures, :id => @other_author.id
+      end
+      it '@panel_picturesにリストを取得している' do
+        get :panel_pictures, :id => @other_author.id
+        assigns(:panel_pictures).should have_at_least(3).items
+      end
+      context 'html形式' do
+        it '@paginateにページ制御を取得している' do
+          get :panel_pictures, :id => @other_author.id
+          assigns(:paginate).is_a?(Kaminari::PaginatableArray).should be_true
+        end
+        it 'panel_picturesテンプレートを描画する' do
+          get :panel_pictures, :id => @other_author.id
+          response.should render_template("panel_pictures")
+        end
+      end
+      context 'json形式' do
+        it 'jsonデータを返す' do
+          get :panel_pictures, :id => @other_author.id, :format => :json
+          lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
+        end
+        it 'コマ絵モデルにjson一覧出力オプションを問い合わせている' do
+          PanelPicture.should_receive(:list_json_opt).exactly(1)
+          get :panel_pictures, :id => @other_author.id, :format => :json
+        end
+        it 'データがリスト構造になっている' do
+          get :panel_pictures, :id => @other_author.id, :format => :json
+          json = JSON.parse response.body
+          json.should have_at_least(3).items
+        end
+        it 'リストの先頭くらいはコマ絵っぽいものであって欲しい' do
+          get :panel_pictures, :id => @other_author.id, :format => :json
+          json = JSON.parse response.body
+          json.first.has_key?("link").should be_true
+          json.first.has_key?("x").should be_true
+          json.first.has_key?("y").should be_true
+        end
+      end
+    end
+    context 'ユーザ権限がないとき' do
+      before do
+        sign_out @user
+      end
+      context 'html形式' do
+        it 'ステータスコード302 Foundを返す' do
+          get :panel_pictures, :id => @other_author.id
+          response.status.should eq 302
+        end
+        it 'サインインページへ遷移する' do
+          get :panel_pictures, :id => @other_author.id
+          response.should redirect_to '/users/sign_in'
+        end
+      end
+      context 'json形式' do
+        it 'ステータスコード401 Unauthorizedを返す' do
+          get :panel_pictures, :id => @other_author.id, :format => :json
+          response.status.should eq 401
+        end
+        it '応答メッセージにUnauthorizedを返す' do
+          get :panel_pictures, :id => @other_author.id, :format => :json
+          response.message.should match(/Unauthorized/)
+        end
+      end
+    end
+    context 'ユーザ権限はないが管理者権限があるとき' do
+      before do
+        sign_out @user
+        sign_in @admin
+      end
+      it 'ステータスコード200 OKを返す' do
+        get :panel_pictures, :id => @other_author.id
+        response.should be_success 
+      end
+    end
+    context 'ユーザだが作家登録していないとき' do
+      before do
+        @author.destroy
+      end
+      it 'ステータスコード200 OKを返す' do
+        get :panel_pictures, :id => @other_author.id
+        response.should be_success 
+      end
+    end
+  end
+  
+  describe '対象作家のフキダシ一覧表示に於いて' do
+    before do
+      @other_user = FactoryGirl.create( :user_yas)
+      @other_author = FactoryGirl.create :author, :user_id => @other_user.id
+      @other_artist = FactoryGirl.create :artist_yas, :author_id => @other_author.id
+      @panel = FactoryGirl.create :panel, :author_id => @other_author.id
+      @sb = FactoryGirl.build :speech_balloon, :panel_id => @panel.id, :speech_balloon_template_id => @speech_balloon_template.id
+      @speech = @sb.build_speech(
+        FactoryGirl.attributes_for(:speech, :writing_format_id => @writing_format.id)
+      )
+      @balloon = @sb.build_balloon(
+        FactoryGirl.attributes_for(:balloon, :system_picture_id => @sp.id)
+      )
+      @sb.boost
+      @sb.save!
+      Author.stub(:show).and_return(@other_author)
+      SpeechBalloon.stub(:himlist).and_return([@sb, @sb, @sb])
+      sign_in @user
+    end
+    context 'パラメータpageについて' do
+      it '@pageに値が入る' do
+        get :speech_balloons, :id => @other_author.id, :page => 5
+        assigns(:page).should eq 5
+      end
+      it '省略されると@pageに1値が入る' do
+        get :speech_balloons, :id => @other_author.id
+        assigns(:page).should eq 1
+      end
+      it '与えられたpage_sizeがセットされている' do
+        get :speech_balloons, :id => @other_author.id, :page_size => 15
+        assigns(:page_size).should eq 15
+      end
+      it '省略されると@page_sizeにデフォルト値が入る' do
+        get :speech_balloons, :id => @other_author.id
+        assigns(:page_size).should eq Author.default_speech_balloon_page_size
+      end
+      it '最大を超えると@page_sizeにデフォルト最大値が入る' do
+        get :speech_balloons, :id => @other_author.id, :page_size => 1500
+        assigns(:page_size).should eq Author.speech_balloon_max_page_size
+      end
+      it '不正な値が入ると@page_sizeにデフォルト最大値が入る' do
+        get :speech_balloons, :id => @other_author.id, :page_size => 0
+        assigns(:page_size).should eq Author.default_speech_balloon_page_size
+      end
+    end
+    context 'つつがなく終わるとき' do
+      it 'ステータスコード200 OKを返す' do
+        get :speech_balloons, :id => @other_author.id
+        response.should be_success 
+      end
+      it '作家モデルに単体取得を問い合わせている' do
+        Author.should_receive(:show).exactly(1)
+        get :speech_balloons, :id => @other_author.id
+      end
+      it 'フキダシモデルに他作家のフキダシ一覧を問い合わせている' do
+        SpeechBalloon.should_receive(:himlist).exactly(1)
+        get :speech_balloons, :id => @other_author.id
+      end
+      it '@speech_balloonsにリストを取得している' do
+        get :speech_balloons, :id => @other_author.id
+        assigns(:speech_balloons).should have_at_least(3).items
+      end
+      context 'html形式' do
+        it '@paginateにページ制御を取得している' do
+          get :speech_balloons, :id => @other_author.id
+          assigns(:paginate).is_a?(Kaminari::PaginatableArray).should be_true
+        end
+        it 'speech_balloonsテンプレートを描画する' do
+          get :speech_balloons, :id => @other_author.id
+          response.should render_template("speech_balloons")
+        end
+      end
+      context 'json形式' do
+        it 'jsonデータを返す' do
+          get :speech_balloons, :id => @other_author.id, :format => :json
+          lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
+        end
+        it 'フキダシモデルにjson一覧出力オプションを問い合わせている' do
+          SpeechBalloon.should_receive(:list_json_opt).exactly(1)
+          get :speech_balloons, :id => @other_author.id, :format => :json
+        end
+        it 'データがリスト構造になっている' do
+          get :speech_balloons, :id => @other_author.id, :format => :json
+          json = JSON.parse response.body
+          json.should have_at_least(3).items
+        end
+        it 'リストの先頭くらいはフキダシっぽいものであって欲しい' do
+          get :speech_balloons, :id => @other_author.id, :format => :json
+          json = JSON.parse response.body
+          json.first.has_key?("speech_balloon_template_id").should be_true
+          json.first.has_key?("z").should be_true
+          json.first.has_key?("t").should be_true
+        end
+      end
+    end
+    context 'ユーザ権限がないとき' do
+      before do
+        sign_out @user
+      end
+      context 'html形式' do
+        it 'ステータスコード302 Foundを返す' do
+          get :speech_balloons, :id => @other_author.id
+          response.status.should eq 302
+        end
+        it 'サインインページへ遷移する' do
+          get :speech_balloons, :id => @other_author.id
+          response.should redirect_to '/users/sign_in'
+        end
+      end
+      context 'json形式' do
+        it 'ステータスコード401 Unauthorizedを返す' do
+          get :speech_balloons, :id => @other_author.id, :format => :json
+          response.status.should eq 401
+        end
+        it '応答メッセージにUnauthorizedを返す' do
+          get :speech_balloons, :id => @other_author.id, :format => :json
+          response.message.should match(/Unauthorized/)
+        end
+      end
+    end
+    context 'ユーザ権限はないが管理者権限があるとき' do
+      before do
+        sign_out @user
+        sign_in @admin
+      end
+      it 'ステータスコード200 OKを返す' do
+        get :speech_balloons, :id => @other_author.id
+        response.should be_success 
+      end
+    end
+    context 'ユーザだが作家登録していないとき' do
+      before do
+        @author.destroy
+      end
+      it 'ステータスコード200 OKを返す' do
+        get :speech_balloons, :id => @other_author.id
+        response.should be_success 
+      end
+    end
+  end
+  
+  describe '対象作家の絵地一覧表示に於いて' do
+    before do
+      @other_user = FactoryGirl.create( :user_yas)
+      @other_author = FactoryGirl.create :author, :user_id => @other_user.id
+      @other_artist = FactoryGirl.create :artist_yas, :author_id => @other_author.id
+      @op = FactoryGirl.create :original_picture, :artist_id => @artist.id
+      @p = FactoryGirl.create :picture, :original_picture_id => @op.id, :license_id => @license.id, :artist_id => @artist.id
+      @rp = FactoryGirl.create :resource_picture, :artist_id => @artist.id, :license_id => @license.id, :original_picture_id => @op.id, :picture_id => @p.id
+      @panel = FactoryGirl.create :panel, :author_id => @author.id
+      @ground_picture = FactoryGirl.create :ground_picture, :panel_id => @panel.id, :picture_id => @p.id
+      Author.stub(:show).and_return(@other_author)
+      GroundPicture.stub(:himlist).and_return([@ground_picture, @ground_picture, @ground_picture])
+      sign_in @user
+    end
+    context 'パラメータpageについて' do
+      it '@pageに値が入る' do
+        get :ground_pictures, :id => @other_author.id, :page => 5
+        assigns(:page).should eq 5
+      end
+      it '省略されると@pageに1値が入る' do
+        get :ground_pictures, :id => @other_author.id
+        assigns(:page).should eq 1
+      end
+      it '与えられたpage_sizeがセットされている' do
+        get :ground_pictures, :id => @other_author.id, :page_size => 15
+        assigns(:page_size).should eq 15
+      end
+      it '省略されると@page_sizeにデフォルト値が入る' do
+        get :ground_pictures, :id => @other_author.id
+        assigns(:page_size).should eq Author.default_ground_picture_page_size
+      end
+      it '最大を超えると@page_sizeにデフォルト最大値が入る' do
+        get :ground_pictures, :id => @other_author.id, :page_size => 1500
+        assigns(:page_size).should eq Author.ground_picture_max_page_size
+      end
+      it '不正な値が入ると@page_sizeにデフォルト最大値が入る' do
+        get :ground_pictures, :id => @other_author.id, :page_size => 0
+        assigns(:page_size).should eq Author.default_ground_picture_page_size
+      end
+    end
+    context 'つつがなく終わるとき' do
+      it 'ステータスコード200 OKを返す' do
+        get :ground_pictures, :id => @other_author.id
+        response.should be_success 
+      end
+      it '作家モデルに単体取得を問い合わせている' do
+        Author.should_receive(:show).exactly(1)
+        get :ground_pictures, :id => @other_author.id
+      end
+      it '絵地モデルに他作家の絵地一覧を問い合わせている' do
+        GroundPicture.should_receive(:himlist).exactly(1)
+        get :ground_pictures, :id => @other_author.id
+      end
+      it '@ground_picturesにリストを取得している' do
+        get :ground_pictures, :id => @other_author.id
+        assigns(:ground_pictures).should have_at_least(3).items
+      end
+      context 'html形式' do
+        it '@paginateにページ制御を取得している' do
+          get :ground_pictures, :id => @other_author.id
+          assigns(:paginate).is_a?(Kaminari::PaginatableArray).should be_true
+        end
+        it 'ground_picturesテンプレートを描画する' do
+          get :ground_pictures, :id => @other_author.id
+          response.should render_template("ground_pictures")
+        end
+      end
+      context 'json形式' do
+        it 'jsonデータを返す' do
+          get :ground_pictures, :id => @other_author.id, :format => :json
+          lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
+        end
+        it '絵地モデルにjson一覧出力オプションを問い合わせている' do
+          GroundPicture.should_receive(:list_json_opt).exactly(1)
+          get :ground_pictures, :id => @other_author.id, :format => :json
+        end
+        it 'データがリスト構造になっている' do
+          get :ground_pictures, :id => @other_author.id, :format => :json
+          json = JSON.parse response.body
+          json.should have_at_least(3).items
+        end
+        it 'リストの先頭くらいは絵地っぽいものであって欲しい' do
+          get :ground_pictures, :id => @other_author.id, :format => :json
+          json = JSON.parse response.body
+          json.first.has_key?("panel_id").should be_true
+          json.first.has_key?("picture_id").should be_true
+          json.first.has_key?("z").should be_true
+        end
+      end
+    end
+    context 'ユーザ権限がないとき' do
+      before do
+        sign_out @user
+      end
+      context 'html形式' do
+        it 'ステータスコード302 Foundを返す' do
+          get :ground_pictures, :id => @other_author.id
+          response.status.should eq 302
+        end
+        it 'サインインページへ遷移する' do
+          get :ground_pictures, :id => @other_author.id
+          response.should redirect_to '/users/sign_in'
+        end
+      end
+      context 'json形式' do
+        it 'ステータスコード401 Unauthorizedを返す' do
+          get :ground_pictures, :id => @other_author.id, :format => :json
+          response.status.should eq 401
+        end
+        it '応答メッセージにUnauthorizedを返す' do
+          get :ground_pictures, :id => @other_author.id, :format => :json
+          response.message.should match(/Unauthorized/)
+        end
+      end
+    end
+    context 'ユーザ権限はないが管理者権限があるとき' do
+      before do
+        sign_out @user
+        sign_in @admin
+      end
+      it 'ステータスコード200 OKを返す' do
+        get :ground_pictures, :id => @other_author.id
+        response.should be_success 
+      end
+    end
+    context 'ユーザだが作家登録していないとき' do
+      before do
+        @author.destroy
+      end
+      it 'ステータスコード200 OKを返す' do
+        get :ground_pictures, :id => @other_author.id
+        response.should be_success 
+      end
+    end
+  end
+  
+  describe '対象作家の色地一覧表示に於いて' do
+    before do
+      @other_user = FactoryGirl.create( :user_yas)
+      @other_author = FactoryGirl.create :author, :user_id => @other_user.id
+      @other_artist = FactoryGirl.create :artist_yas, :author_id => @other_author.id
+      @gc = FactoryGirl.create :ground_color
+      @panel = FactoryGirl.create :panel, :author_id => @author.id
+      Author.stub(:show).and_return(@other_author)
+      GroundColor.stub(:himlist).and_return([@gc, @gc, @gc])
+      sign_in @user
+    end
+    context 'パラメータpageについて' do
+      it '@pageに値が入る' do
+        get :ground_colors, :id => @other_author.id, :page => 5
+        assigns(:page).should eq 5
+      end
+      it '省略されると@pageに1値が入る' do
+        get :ground_colors, :id => @other_author.id
+        assigns(:page).should eq 1
+      end
+      it '与えられたpage_sizeがセットされている' do
+        get :ground_colors, :id => @other_author.id, :page_size => 15
+        assigns(:page_size).should eq 15
+      end
+      it '省略されると@page_sizeにデフォルト値が入る' do
+        get :ground_colors, :id => @other_author.id
+        assigns(:page_size).should eq Author.default_ground_color_page_size
+      end
+      it '最大を超えると@page_sizeにデフォルト最大値が入る' do
+        get :ground_colors, :id => @other_author.id, :page_size => 1500
+        assigns(:page_size).should eq Author.ground_color_max_page_size
+      end
+      it '不正な値が入ると@page_sizeにデフォルト最大値が入る' do
+        get :ground_colors, :id => @other_author.id, :page_size => 0
+        assigns(:page_size).should eq Author.ground_color_page_size
+      end
+    end
+    context 'つつがなく終わるとき' do
+      it 'ステータスコード200 OKを返す' do
+        get :ground_colors, :id => @other_author.id
+        response.should be_success 
+      end
+      it '作家モデルに単体取得を問い合わせている' do
+        Author.should_receive(:show).exactly(1)
+        get :ground_colors, :id => @other_author.id
+      end
+      it '色地モデルに他作家の色地一覧を問い合わせている' do
+        GroundColor.should_receive(:himlist).exactly(1)
+        get :ground_colors, :id => @other_author.id
+      end
+      it '@ground_colorsにリストを取得している' do
+        get :ground_colors, :id => @other_author.id
+        assigns(:ground_colors).should have_at_least(3).items
+      end
+      context 'html形式' do
+        it '@paginateにページ制御を取得している' do
+          get :ground_colors, :id => @other_author.id
+          assigns(:paginate).is_a?(Kaminari::PaginatableArray).should be_true
+        end
+        it 'ground_colorsテンプレートを描画する' do
+          get :ground_colors, :id => @other_author.id
+          response.should render_template("ground_colors")
+        end
+      end
+      context 'json形式' do
+        it 'jsonデータを返す' do
+          get :ground_colors, :id => @other_author.id, :format => :json
+          lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
+        end
+        it '色地モデルにjson一覧出力オプションを問い合わせている' do
+          GroundColor.should_receive(:list_json_opt).exactly(1)
+          get :ground_colors, :id => @other_author.id, :format => :json
+        end
+        it 'データがリスト構造になっている' do
+          get :ground_colors, :id => @other_author.id, :format => :json
+          json = JSON.parse response.body
+          json.should have_at_least(3).items
+        end
+        it 'リストの先頭くらいは色地っぽいものであって欲しい' do
+          get :ground_colors, :id => @other_author.id, :format => :json
+          json = JSON.parse response.body
+          json.first.has_key?("panel_id").should be_true
+          json.first.has_key?("code").should be_true
+          json.first.has_key?("z").should be_true
+        end
+      end
+    end
+    context 'ユーザ権限がないとき' do
+      before do
+        sign_out @user
+      end
+      context 'html形式' do
+        it 'ステータスコード302 Foundを返す' do
+          get :ground_colors, :id => @other_author.id
+          response.status.should eq 302
+        end
+        it 'サインインページへ遷移する' do
+          get :ground_colors, :id => @other_author.id
+          response.should redirect_to '/users/sign_in'
+        end
+      end
+      context 'json形式' do
+        it 'ステータスコード401 Unauthorizedを返す' do
+          get :ground_colors, :id => @other_author.id, :format => :json
+          response.status.should eq 401
+        end
+        it '応答メッセージにUnauthorizedを返す' do
+          get :ground_colors, :id => @other_author.id, :format => :json
+          response.message.should match(/Unauthorized/)
+        end
+      end
+    end
+    context 'ユーザ権限はないが管理者権限があるとき' do
+      before do
+        sign_out @user
+        sign_in @admin
+      end
+      it 'ステータスコード200 OKを返す' do
+        get :ground_colors, :id => @other_author.id
+        response.should be_success 
+      end
+    end
+    context 'ユーザだが作家登録していないとき' do
+      before do
+        @author.destroy
+      end
+      it 'ステータスコード200 OKを返す' do
+        get :ground_colors, :id => @other_author.id
+        response.should be_success 
+      end
+    end
+  end
+  
   describe '作家数取得に於いて' do
     before do
       Author.should_receive(:visible_count).and_return(3)
@@ -1213,24 +1781,24 @@ else
       @other_user = FactoryGirl.create( :user_yas)
       @other_author = FactoryGirl.create :author, :user_id => @other_user.id
       @other_artist = FactoryGirl.create :artist_yas, :author_id => @other_author.id
-      @comic = FactoryGirl.create :comic, :author_id => @other_user.author.id
-      Comic.stub(:mylist).and_return([@comic, @comic, @comic])
+      @scroll = FactoryGirl.create :scroll, :author_id => @other_user.author.id
+      Scroll.stub(:mylist).and_return([@scroll, @scroll, @scroll])
       sign_in @user
     end
     context 'つつがなく終わるとき' do
       it 'ステータスコード200 OKを返す' do
-        get :comics, :id => @other_author.id
+        get :scrolls, :id => @other_author.id
         response.should be_success 
       end
       context 'html形式' do
-        it 'comicテンプレートを描画する' do
-          get :comics, :id => @other_author.id
-          response.should render_template("comic")
+        it 'scrollテンプレートを描画する' do
+          get :scrolls, :id => @other_author.id
+          response.should render_template("scroll")
         end
       end
       context 'json形式' do
         it 'jsonデータを返す' do
-          get :comics, :id => @other_author.id, :format => :json
+          get :scrolls, :id => @other_author.id, :format => :json
           lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
         end
       end
@@ -1240,18 +1808,18 @@ else
         sign_out @user
       end
       it 'ステータスコード200 OKを返す' do
-        get :comics, :id => @other_author.id
+        get :scrolls, :id => @other_author.id
         response.should be_success 
       end
       context 'html形式' do
-        it 'comicsテンプレートを描画する' do
-          get :comics, :id => @other_author.id
-          response.should render_template("comics")
+        it 'scrollsテンプレートを描画する' do
+          get :scrolls, :id => @other_author.id
+          response.should render_template("scrolls")
         end
       end
       context 'json形式' do
         it 'jsonデータを返す' do
-          get :comics, :id => @other_author.id, :format => :json
+          get :scrolls, :id => @other_author.id, :format => :json
           lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
         end
       end
@@ -1263,26 +1831,26 @@ else
       @other_user = FactoryGirl.create( :user_yas)
       @other_author = FactoryGirl.create :author, :user_id => @other_user.id
       @other_artist = FactoryGirl.create :artist_yas, :author_id => @other_author.id
-      @comic = FactoryGirl.create :comic, :author_id => @other_user.author.id
+      @scroll = FactoryGirl.create :scroll, :author_id => @other_user.author.id
       @panel = FactoryGirl.create :panel, :author_id => @other_author.id
-      @story = FactoryGirl.create :story, :t => 0, :comic_id => @comic.id, :panel_id => @panel.id, :author_id => @other_author.id
-      Story.stub(:mylist).and_return([@story, @story, @story])
+      @scroll_panel = FactoryGirl.create :scroll_panel, :t => 0, :scroll_id => @scroll.id, :panel_id => @panel.id, :author_id => @other_author.id
+      ScrollPanel.stub(:mylist).and_return([@scroll_panel, @scroll_panel, @scroll_panel])
       sign_in @user
     end
     context 'つつがなく終わるとき' do
       it 'ステータスコード200 OKを返す' do
-        get :stories, :id => @other_author.id
+        get :scroll_panels, :id => @other_author.id
         response.should be_success 
       end
       context 'html形式' do
-        it 'storiesテンプレートを描画する' do
-          get :stories, :id => @other_author.id
-          response.should render_template("stories")
+        it 'scroll_panelsテンプレートを描画する' do
+          get :scroll_panels, :id => @other_author.id
+          response.should render_template("scroll_panels")
         end
       end
       context 'json形式' do
         it 'jsonデータを返す' do
-          get :stories, :id => @other_author.id, :format => :json
+          get :scroll_panels, :id => @other_author.id, :format => :json
           lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
         end
       end
@@ -1292,18 +1860,18 @@ else
         sign_out @user
       end
       it 'ステータスコード200 OKを返す' do
-        get :stories, :id => @other_author.id
+        get :scroll_panels, :id => @other_author.id
         response.should be_success 
       end
       context 'html形式' do
-        it 'storiesテンプレートを描画する' do
-          get :stories, :id => @other_author.id
-          response.should render_template("stories")
+        it 'scroll_panelsテンプレートを描画する' do
+          get :scroll_panels, :id => @other_author.id
+          response.should render_template("scroll_panels")
         end
       end
       context 'json形式' do
         it 'jsonデータを返す' do
-          get :stories, :id => @other_author.id, :format => :json
+          get :scroll_panels, :id => @other_author.id, :format => :json
           lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
         end
       end
@@ -1360,6 +1928,157 @@ else
     end
   end
   
+  describe '対象作家のコマ絵一覧表示に於いて' do
+    before do
+      @other_user = FactoryGirl.create( :user_yas)
+      @other_author = FactoryGirl.create :author, :user_id => @other_user.id
+      @other_artist = FactoryGirl.create :artist_yas, :author_id => @other_author.id
+      @op = FactoryGirl.create :original_picture, :artist_id => @artist.id
+      @p = FactoryGirl.create :picture, :original_picture_id => @op.id, :license_id => @license.id, :artist_id => @artist.id
+      @rp = FactoryGirl.create :resource_picture, :artist_id => @artist.id, :license_id => @license.id, :original_picture_id => @op.id, :picture_id => @p.id
+      @panel = FactoryGirl.create :panel, :author_id => @author.id
+      @panel_picture = FactoryGirl.create :panel_picture, :picture_id => @p.id, :panel_id => @panel.id, :width => @p.width, :height => @p.height
+      PanelPicture.stub(:list).and_return([@panel_picture, @panel_picture, @panel_picture])
+      sign_in @user
+    end
+    context 'つつがなく終わるとき' do
+      it 'ステータスコード200 OKを返す' do
+        get :panel_pictures, :id => @other_author.id
+        response.should be_success 
+      end
+      context 'html形式' do
+        it 'panel_picturesテンプレートを描画する' do
+          get :panel_pictures, :id => @other_author.id
+          response.should render_template("panel_pictures")
+        end
+      end
+      context 'json形式' do
+        it 'jsonデータを返す' do
+          get :panel_pictures, :id => @other_author.id, :format => :json
+          lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
+        end
+      end
+    end
+    context 'ユーザ権限がないとき' do
+      before do
+        sign_out @user
+      end
+      it 'ステータスコード200 OKを返す' do
+        get :panel_pictures, :id => @other_author.id
+        response.should be_success 
+      end
+      context 'html形式' do
+        it 'panel_picturesテンプレートを描画する' do
+          get :panel_pictures, :id => @other_author.id
+          response.should render_template("panel_pictures")
+        end
+      end
+      context 'json形式' do
+        it 'jsonデータを返す' do
+          get :panel_pictures, :id => @other_author.id, :format => :json
+          lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
+        end
+      end
+    end
+  end
+  
+  describe '対象作家の絵地一覧表示に於いて' do
+    before do
+      @other_user = FactoryGirl.create( :user_yas)
+      @other_author = FactoryGirl.create :author, :user_id => @other_user.id
+      @other_artist = FactoryGirl.create :artist_yas, :author_id => @other_author.id
+      @op = FactoryGirl.create :original_picture, :artist_id => @artist.id
+      @p = FactoryGirl.create :picture, :original_picture_id => @op.id, :license_id => @license.id, :artist_id => @artist.id
+      @rp = FactoryGirl.create :resource_picture, :artist_id => @artist.id, :license_id => @license.id, :original_picture_id => @op.id, :picture_id => @p.id
+      @panel = FactoryGirl.create :panel, :author_id => @author.id
+      @ground_picture = FactoryGirl.create :ground_picture, :panel_id => @panel.id, :picture_id => @p.id
+      GroundPicture.stub(:himlist).and_return([@ground_picture, @ground_picture, @ground_picture])
+      sign_in @user
+    end
+    context 'つつがなく終わるとき' do
+      it 'ステータスコード200 OKを返す' do
+        get :ground_pictures, :id => @other_author.id
+        response.should be_success 
+      end
+      context 'html形式' do
+        it 'ground_picturesテンプレートを描画する' do
+          get :ground_pictures, :id => @other_author.id
+          response.should render_template("ground_pictures")
+        end
+      end
+      context 'json形式' do
+        it 'jsonデータを返す' do
+          get :ground_pictures, :id => @other_author.id, :format => :json
+          lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
+        end
+      end
+    end
+    context 'ユーザ権限がないとき' do
+      before do
+        sign_out @user
+      end
+      context 'html形式' do
+        it 'ground_picturesテンプレートを描画する' do
+          get :ground_pictures, :id => @other_author.id
+          response.should render_template("ground_pictures")
+        end
+      end
+      context 'json形式' do
+        it 'jsonデータを返す' do
+          get :ground_pictures, :id => @other_author.id, :format => :json
+          lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
+        end
+      end
+    end
+  end
+  
+  describe '対象作家の色地一覧表示に於いて' do
+    before do
+      @other_user = FactoryGirl.create( :user_yas)
+      @other_author = FactoryGirl.create :author, :user_id => @other_user.id
+      @other_artist = FactoryGirl.create :artist_yas, :author_id => @other_author.id
+      @gc = FactoryGirl.create :ground_color
+      @panel = FactoryGirl.create :panel, :author_id => @author.id
+      GroundColor.stub(:himlist).and_return([@gc, @gc, @gc])
+      sign_in @user
+    end
+    context 'つつがなく終わるとき' do
+      it 'ステータスコード200 OKを返す' do
+        get :ground_colors, :id => @other_author.id
+        response.should be_success 
+      end
+      context 'html形式' do
+        it 'ground_colorsテンプレートを描画する' do
+          get :ground_colors, :id => @other_author.id
+          response.should render_template("ground_colors")
+        end
+      end
+      context 'json形式' do
+        it 'jsonデータを返す' do
+          get :ground_colors, :id => @other_author.id, :format => :json
+          lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
+        end
+      end
+    end
+    context 'ユーザ権限がないとき' do
+      before do
+        sign_out @user
+      end
+      context 'html形式' do
+        it 'ground_colorsテンプレートを描画する' do
+          get :ground_colors, :id => @other_author.id
+          response.should render_template("ground_colors")
+        end
+      end
+      context 'json形式' do
+        it 'jsonデータを返す' do
+          get :ground_colors, :id => @other_author.id, :format => :json
+          lambda{JSON.parse(response.body)}.should_not raise_error(JSON::ParserError)
+        end
+      end
+    end
+  end
+  
   describe '作家数取得に於いて' do
     before do
       Author.should_receive(:visible_count).and_return(3)