kt-paperclip 6.2.0

data/spec/paperclip/style_spec.rb

@@ -0,0 +1,251 @@
+require "spec_helper"
+
+describe Paperclip::Style do
+  context "A style rule" do
+    before do
+      @attachment = attachment path: ":basename.:extension",
+                               styles: { foo: { geometry: "100x100#", format: :png } },
+                               whiny: true
+      @style = @attachment.styles[:foo]
+    end
+
+    it "is held as a Style object" do
+      expect(@style).to be_a Paperclip::Style
+    end
+
+    it "gets processors from the attachment definition" do
+      assert_equal [:thumbnail], @style.processors
+    end
+
+    it "has the right geometry" do
+      assert_equal "100x100#", @style.geometry
+    end
+
+    it "is whiny if the attachment is" do
+      assert @style.whiny?
+    end
+
+    it "responds to hash notation" do
+      assert_equal [:thumbnail], @style[:processors]
+      assert_equal "100x100#", @style[:geometry]
+    end
+
+    it "returns the name of the style in processor options" do
+      assert_equal :foo, @style.processor_options[:style]
+    end
+  end
+
+  context "A style rule with properties supplied as procs" do
+    before do
+      @attachment = attachment path: ":basename.:extension",
+                               whiny_thumbnails: true,
+                               processors: lambda { |_a| [:test] },
+                               styles: {
+                                 foo: lambda { |_a| "300x300#" },
+                                 bar: {
+                                   geometry: lambda { |_a| "300x300#" },
+                                   convert_options: lambda { |_a| "-do_stuff" },
+                                   source_file_options: lambda { |_a| "-do_extra_stuff" }
+                                 }
+                               }
+    end
+
+    it "calls procs when they are needed" do
+      assert_equal "300x300#", @attachment.styles[:foo].geometry
+      assert_equal "300x300#", @attachment.styles[:bar].geometry
+      assert_equal [:test], @attachment.styles[:foo].processors
+      assert_equal [:test], @attachment.styles[:bar].processors
+      assert_equal "-do_stuff", @attachment.styles[:bar].convert_options
+      assert_equal "-do_extra_stuff", @attachment.styles[:bar].source_file_options
+    end
+  end
+
+  context "An attachment with style rules in various forms" do
+    before do
+      styles = {}
+      styles[:aslist] = ["100x100", :png]
+      styles[:ashash] = { geometry: "100x100", format: :png }
+      styles[:asstring] = "100x100"
+      @attachment = attachment path: ":basename.:extension",
+                               styles: styles
+    end
+
+    it "has the right number of styles" do
+      expect(@attachment.styles).to be_a Hash
+      assert_equal 3, @attachment.styles.size
+    end
+
+    it "has styles as Style objects" do
+      [:aslist, :ashash, :aslist].each do |s|
+        expect(@attachment.styles[s]).to be_a Paperclip::Style
+      end
+    end
+
+    it "has the right geometries" do
+      [:aslist, :ashash, :aslist].each do |s|
+        assert_equal @attachment.styles[s].geometry, "100x100"
+      end
+    end
+
+    it "has the right formats" do
+      assert_equal @attachment.styles[:aslist].format, :png
+      assert_equal @attachment.styles[:ashash].format, :png
+      assert_nil @attachment.styles[:asstring].format
+    end
+
+    it "retains order" do
+      assert_equal [:aslist, :ashash, :asstring], @attachment.styles.keys
+    end
+  end
+
+  context "An attachment with :convert_options" do
+    it "does not have called extra_options_for(:thumb/:large) on initialization" do
+      @attachment = attachment path: ":basename.:extension",
+                               styles: { thumb: "100x100", large: "400x400" },
+                               convert_options: { all: "-do_stuff", thumb: "-thumbnailize" }
+      expect(@attachment).to_not receive(:extra_options_for)
+      @style = @attachment.styles[:thumb]
+    end
+
+    it "calls extra_options_for(:thumb/:large) when convert options are requested" do
+      @attachment = attachment path: ":basename.:extension",
+                               styles: { thumb: "100x100", large: "400x400" },
+                               convert_options: { all: "-do_stuff", thumb: "-thumbnailize" }
+      @style = @attachment.styles[:thumb]
+      @file = StringIO.new("...")
+      allow(@file).to receive(:original_filename).and_return("file.jpg")
+
+      expect(@attachment).to receive(:extra_options_for).with(:thumb)
+      @attachment.styles[:thumb].convert_options
+    end
+  end
+
+  context "An attachment with :source_file_options" do
+    it "does not have called extra_source_file_options_for(:thumb/:large) on initialization" do
+      @attachment = attachment path: ":basename.:extension",
+                               styles: { thumb: "100x100", large: "400x400" },
+                               source_file_options: { all: "-density 400", thumb: "-depth 8" }
+      expect(@attachment).to_not receive(:extra_source_file_options_for)
+      @style = @attachment.styles[:thumb]
+    end
+
+    it "calls extra_options_for(:thumb/:large) when convert options are requested" do
+      @attachment = attachment path: ":basename.:extension",
+                               styles: { thumb: "100x100", large: "400x400" },
+                               source_file_options: { all: "-density 400", thumb: "-depth 8" }
+      @style = @attachment.styles[:thumb]
+      @file = StringIO.new("...")
+      allow(@file).to receive(:original_filename).and_return("file.jpg")
+
+      expect(@attachment).to receive(:extra_source_file_options_for).with(:thumb)
+      @attachment.styles[:thumb].source_file_options
+    end
+  end
+
+  context "A style rule with its own :processors" do
+    before do
+      @attachment = attachment path: ":basename.:extension",
+                               styles: {
+                                 foo: {
+                                   geometry: "100x100#",
+                                   format: :png,
+                                   processors: [:test]
+                                 }
+                               },
+                               processors: [:thumbnail]
+      @style = @attachment.styles[:foo]
+    end
+
+    it "does not get processors from the attachment" do
+      expect(@attachment).to_not receive(:processors)
+      assert_not_equal [:thumbnail], @style.processors
+    end
+
+    it "reports its own processors" do
+      assert_equal [:test], @style.processors
+    end
+  end
+
+  context "A style rule with :processors supplied as procs" do
+    before do
+      @attachment = attachment path: ":basename.:extension",
+                               styles: {
+                                 foo: {
+                                   geometry: "100x100#",
+                                   format: :png,
+                                   processors: lambda { |_a| [:test] }
+                                 }
+                               },
+                               processors: [:thumbnail]
+    end
+
+    it "defers processing of procs until they are needed" do
+      expect(@attachment.styles[:foo].instance_variable_get("@processors")).to be_a Proc
+    end
+
+    it "calls procs when they are needed" do
+      assert_equal [:test], @attachment.styles[:foo].processors
+    end
+  end
+
+  context "An attachment with :convert_options and :source_file_options in :styles" do
+    before do
+      @attachment = attachment path: ":basename.:extension",
+                               styles: {
+                                 thumb: "100x100",
+                                 large: { geometry: "400x400",
+                                          convert_options: "-do_stuff",
+                                          source_file_options: "-do_extra_stuff" }
+                               }
+      @file = StringIO.new("...")
+      allow(@file).to receive(:original_filename).and_return("file.jpg")
+    end
+
+    it "has empty options for :thumb style" do
+      assert_equal "", @attachment.styles[:thumb].processor_options[:convert_options]
+      assert_equal "", @attachment.styles[:thumb].processor_options[:source_file_options]
+    end
+
+    it "has the right options for :large style" do
+      assert_equal "-do_stuff", @attachment.styles[:large].processor_options[:convert_options]
+      assert_equal "-do_extra_stuff", @attachment.styles[:large].processor_options[:source_file_options]
+    end
+  end
+
+  context "A style rule supplied with default format" do
+    before do
+      @attachment = attachment default_format: :png,
+                               styles: {
+                                 asstring: "300x300#",
+                                 aslist: ["300x300#", :jpg],
+                                 ashash: {
+                                   geometry: "300x300#",
+                                   convert_options: "-do_stuff"
+                                 }
+                               }
+    end
+
+    it "has the right number of styles" do
+      expect(@attachment.styles).to be_a Hash
+      assert_equal 3, @attachment.styles.size
+    end
+
+    it "has styles as Style objects" do
+      [:aslist, :ashash, :aslist].each do |s|
+        expect(@attachment.styles[s]).to be_a Paperclip::Style
+      end
+    end
+
+    it "has the right geometries" do
+      [:aslist, :ashash, :aslist].each do |s|
+        assert_equal @attachment.styles[s].geometry, "300x300#"
+      end
+    end
+
+    it "has the right formats" do
+      assert_equal @attachment.styles[:aslist].format,    :jpg
+      assert_equal @attachment.styles[:ashash].format,    :png
+      assert_equal @attachment.styles[:asstring].format,  :png
+    end
+  end
+end

data/spec/paperclip/tempfile_factory_spec.rb

@@ -0,0 +1,33 @@
+require "spec_helper"
+
+describe Paperclip::TempfileFactory do
+  it "is able to generate a tempfile with the right name" do
+    file = subject.generate("omg.png")
+    assert File.extname(file.path), "png"
+  end
+
+  it "is able to generate a tempfile with the right name with a tilde at the beginning" do
+    file = subject.generate("~omg.png")
+    assert File.extname(file.path), "png"
+  end
+
+  it "is able to generate a tempfile with the right name with a tilde at the end" do
+    file = subject.generate("omg.png~")
+    assert File.extname(file.path), "png"
+  end
+
+  it "is able to generate a tempfile from a file with a really long name" do
+    filename = "#{'longfilename' * 100}.png"
+    file = subject.generate(filename)
+    assert File.extname(file.path), "png"
+  end
+
+  it "is able to take nothing as a parameter and not error" do
+    file = subject.generate
+    assert File.exist?(file.path)
+  end
+
+  it "does not throw Errno::ENAMETOOLONG when it has a really long name" do
+    expect { subject.generate("o" * 255) }.to_not raise_error
+  end
+end

data/spec/paperclip/tempfile_spec.rb

@@ -0,0 +1,35 @@
+require "spec_helper"
+
+describe Paperclip::Tempfile do
+  context "A Paperclip Tempfile" do
+    before do
+      @tempfile = described_class.new(["file", ".jpg"])
+    end
+
+    after { @tempfile.close }
+
+    it "has its path contain a real extension" do
+      assert_equal ".jpg", File.extname(@tempfile.path)
+    end
+
+    it "is a real Tempfile" do
+      assert @tempfile.is_a?(::Tempfile)
+    end
+  end
+
+  context "Another Paperclip Tempfile" do
+    before do
+      @tempfile = described_class.new("file")
+    end
+
+    after { @tempfile.close }
+
+    it "does not have an extension if not given one" do
+      assert_equal "", File.extname(@tempfile.path)
+    end
+
+    it "is a real Tempfile" do
+      assert @tempfile.is_a?(::Tempfile)
+    end
+  end
+end

data/spec/paperclip/thumbnail_spec.rb

@@ -0,0 +1,504 @@
+require "spec_helper"
+
+describe Paperclip::Thumbnail do
+  context "An image" do
+    before do
+      @file = File.new(fixture_file("5k.png"), "rb")
+    end
+
+    after { @file.close }
+
+    [["600x600>", "434x66"],
+     ["400x400>", "400x61"],
+     ["32x32<", "434x66"],
+     [nil, "434x66"]].each do |args|
+      context "being thumbnailed with a geometry of #{args[0]}" do
+        before do
+          @thumb = Paperclip::Thumbnail.new(@file, geometry: args[0])
+        end
+
+        it "starts with dimensions of 434x66" do
+          cmd = %[identify -format "%wx%h" "#{@file.path}"]
+          assert_equal "434x66", `#{cmd}`.chomp
+        end
+
+        it "reports the correct target geometry" do
+          assert_equal args[0].to_s, @thumb.target_geometry.to_s
+        end
+
+        context "when made" do
+          before do
+            @thumb_result = @thumb.make
+          end
+
+          it "is the size we expect it to be" do
+            cmd = %[identify -format "%wx%h" "#{@thumb_result.path}"]
+            assert_equal args[1], `#{cmd}`.chomp
+          end
+        end
+      end
+    end
+
+    context "being thumbnailed at 100x50 with cropping" do
+      before do
+        @thumb = Paperclip::Thumbnail.new(@file, geometry: "100x50#")
+      end
+
+      it "lets us know when a command isn't found versus a processing error" do
+        old_path = ENV["PATH"]
+        begin
+          Terrapin::CommandLine.path = ""
+          Paperclip.options[:command_path] = ""
+          ENV["PATH"] = ""
+          assert_raises(Paperclip::Errors::CommandNotFoundError) do
+            silence_stream(STDERR) do
+              @thumb.make
+            end
+          end
+        ensure
+          ENV["PATH"] = old_path
+        end
+      end
+
+      it "reports its correct current and target geometries" do
+        assert_equal "100x50#", @thumb.target_geometry.to_s
+        assert_equal "434x66", @thumb.current_geometry.to_s
+      end
+
+      it "reports its correct format" do
+        assert_nil @thumb.format
+      end
+
+      it "has whiny turned on by default" do
+        assert @thumb.whiny
+      end
+
+      it "has convert_options set to nil by default" do
+        assert_equal nil, @thumb.convert_options
+      end
+
+      it "has source_file_options set to nil by default" do
+        assert_equal nil, @thumb.source_file_options
+      end
+
+      it "sends the right command to convert when sent #make" do
+        expect(@thumb).to receive(:convert) do |*arg|
+          arg[0] == ':source -auto-orient -resize "x50" -crop "100x50+114+0" +repage :dest' &&
+            arg[1][:source] == "#{File.expand_path(@thumb.file.path)}[0]"
+        end
+        @thumb.make
+      end
+
+      it "creates the thumbnail when sent #make" do
+        dst = @thumb.make
+        assert_match /100x50/, `identify "#{dst.path}"`
+      end
+    end
+
+    it "crops a EXIF-rotated image properly" do
+      file = File.new(fixture_file("rotated.jpg"))
+      thumb = Paperclip::Thumbnail.new(file, geometry: "50x50#")
+
+      output_file = thumb.make
+
+      command = Terrapin::CommandLine.new("identify", "-format %wx%h :file")
+      assert_equal "50x50", command.run(file: output_file.path).strip
+    end
+
+    context "being thumbnailed with source file options set" do
+      before do
+        @thumb = Paperclip::Thumbnail.new(@file,
+                                          geometry: "100x50#",
+                                          source_file_options: "-strip")
+      end
+
+      it "has source_file_options value set" do
+        assert_equal ["-strip"], @thumb.source_file_options
+      end
+
+      it "sends the right command to convert when sent #make" do
+        expect(@thumb).to receive(:convert) do |*arg|
+          arg[0] == '-strip :source -auto-orient -resize "x50" -crop "100x50+114+0" +repage :dest' &&
+            arg[1][:source] == "#{File.expand_path(@thumb.file.path)}[0]"
+        end
+        @thumb.make
+      end
+
+      it "creates the thumbnail when sent #make" do
+        dst = @thumb.make
+        assert_match /100x50/, `identify "#{dst.path}"`
+      end
+
+      context "redefined to have bad source_file_options setting" do
+        before do
+          @thumb = Paperclip::Thumbnail.new(@file,
+                                            geometry: "100x50#",
+                                            source_file_options: "-this-aint-no-option")
+        end
+
+        it "errors when trying to create the thumbnail" do
+          assert_raises(Paperclip::Error) do
+            silence_stream(STDERR) do
+              @thumb.make
+            end
+          end
+        end
+      end
+    end
+
+    context "being thumbnailed with convert options set" do
+      before do
+        @thumb = Paperclip::Thumbnail.new(@file,
+                                          geometry: "100x50#",
+                                          convert_options: "-strip -depth 8")
+      end
+
+      it "has convert_options value set" do
+        assert_equal %w"-strip -depth 8", @thumb.convert_options
+      end
+
+      it "sends the right command to convert when sent #make" do
+        expect(@thumb).to receive(:convert) do |*arg|
+          arg[0] == ':source -auto-orient -resize "x50" -crop "100x50+114+0" +repage -strip -depth 8 :dest' &&
+            arg[1][:source] == "#{File.expand_path(@thumb.file.path)}[0]"
+        end
+        @thumb.make
+      end
+
+      it "creates the thumbnail when sent #make" do
+        dst = @thumb.make
+        assert_match /100x50/, `identify "#{dst.path}"`
+      end
+
+      context "redefined to have bad convert_options setting" do
+        before do
+          @thumb = Paperclip::Thumbnail.new(@file,
+                                            geometry: "100x50#",
+                                            convert_options: "-this-aint-no-option")
+        end
+
+        it "errors when trying to create the thumbnail" do
+          silence_stream(STDERR) do
+            expect do
+              @thumb.make
+            end.to raise_error(
+              Paperclip::Error, /unrecognized option `-this-aint-no-option'/
+            )
+          end
+        end
+
+        it "lets us know when a command isn't found versus a processing error" do
+          old_path = ENV["PATH"]
+          begin
+            Terrapin::CommandLine.path = ""
+            Paperclip.options[:command_path] = ""
+            ENV["PATH"] = ""
+            assert_raises(Paperclip::Errors::CommandNotFoundError) do
+              silence_stream(STDERR) do
+                @thumb.make
+              end
+            end
+          ensure
+            ENV["PATH"] = old_path
+          end
+        end
+      end
+    end
+
+    context "being thumbnailed with a blank geometry string" do
+      before do
+        @thumb = Paperclip::Thumbnail.new(@file,
+                                          geometry: "",
+                                          convert_options: "-gravity center -crop \"300x300+0-0\"")
+      end
+
+      it "does not get resized by default" do
+        assert !@thumb.transformation_command.include?("-resize")
+      end
+    end
+
+    context "being thumbnailed with default animated option (true)" do
+      it "calls identify to check for animated images when sent #make" do
+        thumb = Paperclip::Thumbnail.new(@file, geometry: "100x50#")
+        expect(thumb).to receive(:identify).at_least(1).times do |*arg|
+          arg[0] == "-format %m :file" &&
+            arg[1][:file] == "#{File.expand_path(thumb.file.path)}[0]"
+        end
+        thumb.make
+      end
+    end
+
+    context "passing a custom file geometry parser" do
+      after do
+        Object.send(:remove_const, :GeoParser) if Object.const_defined?(:GeoParser)
+      end
+
+      it "produces the appropriate transformation_command" do
+        GeoParser = Class.new do
+          def self.from_file(_file)
+            new
+          end
+
+          def transformation_to(_target, _should_crop)
+            ["SCALE", "CROP"]
+          end
+        end
+
+        thumb = Paperclip::Thumbnail.new(@file, geometry: "50x50", file_geometry_parser: ::GeoParser)
+
+        transformation_command = thumb.transformation_command
+
+        assert transformation_command.include?("-crop"),
+               %{expected #{transformation_command.inspect} to include '-crop'}
+        assert transformation_command.include?('"CROP"'),
+               %{expected #{transformation_command.inspect} to include '"CROP"'}
+        assert transformation_command.include?("-resize"),
+               %{expected #{transformation_command.inspect} to include '-resize'}
+        assert transformation_command.include?('"SCALE"'),
+               %{expected #{transformation_command.inspect} to include '"SCALE"'}
+      end
+    end
+
+    context "passing a custom geometry string parser" do
+      after do
+        Object.send(:remove_const, :GeoParser) if Object.const_defined?(:GeoParser)
+      end
+
+      it "produces the appropriate transformation_command" do
+        GeoParser = Class.new do
+          def self.parse(_s)
+            new
+          end
+
+          def to_s
+            "151x167"
+          end
+        end
+
+        thumb = Paperclip::Thumbnail.new(@file, geometry: "50x50", string_geometry_parser: ::GeoParser)
+
+        transformation_command = thumb.transformation_command
+
+        assert transformation_command.include?('"151x167"'),
+               %{expected #{transformation_command.inspect} to include '151x167'}
+      end
+    end
+  end
+
+  context "A multipage PDF" do
+    before do
+      @file = File.new(fixture_file("twopage.pdf"), "rb")
+    end
+
+    after { @file.close }
+
+    it "starts with two pages with dimensions 612x792" do
+      cmd = %[identify -format "%wx%h" "#{@file.path}"]
+      assert_equal "612x792" * 2, `#{cmd}`.chomp
+    end
+
+    context "being thumbnailed at 100x100 with cropping" do
+      before do
+        @thumb = Paperclip::Thumbnail.new(@file, geometry: "100x100#", format: :png)
+      end
+
+      it "reports its correct current and target geometries" do
+        assert_equal "100x100#", @thumb.target_geometry.to_s
+        assert_equal "612x792", @thumb.current_geometry.to_s
+      end
+
+      it "reports its correct format" do
+        assert_equal :png, @thumb.format
+      end
+
+      it "creates the thumbnail when sent #make" do
+        dst = @thumb.make
+        assert_match /100x100/, `identify "#{dst.path}"`
+      end
+    end
+  end
+
+  context "An animated gif" do
+    before do
+      @file = File.new(fixture_file("animated.gif"), "rb")
+    end
+
+    after { @file.close }
+
+    it "starts with 12 frames with size 100x100" do
+      cmd = %[identify -format "%wx%h" "#{@file.path}"]
+      assert_equal "100x100" * 12, `#{cmd}`.chomp
+    end
+
+    context "with static output" do
+      before do
+        @thumb = Paperclip::Thumbnail.new(@file, geometry: "50x50", format: :jpg)
+      end
+
+      it "creates the single frame thumbnail when sent #make" do
+        dst = @thumb.make
+        cmd = %[identify -format "%wx%h" "#{dst.path}"]
+        assert_equal "50x50", `#{cmd}`.chomp
+      end
+    end
+
+    context "with animated output format" do
+      before do
+        @thumb = Paperclip::Thumbnail.new(@file, geometry: "50x50", format: :gif)
+      end
+
+      it "creates the 12 frames thumbnail when sent #make" do
+        dst = @thumb.make
+        cmd = %[identify -format "%wx%h," "#{dst.path}"]
+        frames = `#{cmd}`.chomp.split(",")
+        assert_equal 12, frames.size
+        assert_frame_dimensions (45..50), frames
+      end
+
+      it "uses the -coalesce option" do
+        assert_equal @thumb.transformation_command.first, "-coalesce"
+      end
+
+      it "uses the -layers 'optimize' option" do
+        assert_equal @thumb.transformation_command.last, '-layers "optimize"'
+      end
+    end
+
+    context "with omitted output format" do
+      before do
+        @thumb = Paperclip::Thumbnail.new(@file, geometry: "50x50")
+      end
+
+      it "creates the 12 frames thumbnail when sent #make" do
+        dst = @thumb.make
+        cmd = %[identify -format "%wx%h," "#{dst.path}"]
+        frames = `#{cmd}`.chomp.split(",")
+        assert_equal 12, frames.size
+        assert_frame_dimensions (45..50), frames
+      end
+
+      it "uses the -coalesce option" do
+        assert_equal @thumb.transformation_command.first, "-coalesce"
+      end
+
+      it "uses the -layers 'optimize' option" do
+        assert_equal @thumb.transformation_command.last, '-layers "optimize"'
+      end
+    end
+
+    context "with unidentified source format" do
+      before do
+        @unidentified_file = File.new(fixture_file("animated.unknown"), "rb")
+        @thumb = Paperclip::Thumbnail.new(@file, geometry: "60x60")
+      end
+
+      it "creates the 12 frames thumbnail when sent #make" do
+        dst = @thumb.make
+        cmd = %[identify -format "%wx%h," "#{dst.path}"]
+        frames = `#{cmd}`.chomp.split(",")
+        assert_equal 12, frames.size
+        assert_frame_dimensions (55..60), frames
+      end
+
+      it "uses the -coalesce option" do
+        assert_equal @thumb.transformation_command.first, "-coalesce"
+      end
+
+      it "uses the -layers 'optimize' option" do
+        assert_equal @thumb.transformation_command.last, '-layers "optimize"'
+      end
+    end
+
+    context "with no source format" do
+      before do
+        @unidentified_file = File.new(fixture_file("animated"), "rb")
+        @thumb = Paperclip::Thumbnail.new(@file, geometry: "70x70")
+      end
+
+      it "creates the 12 frames thumbnail when sent #make" do
+        dst = @thumb.make
+        cmd = %[identify -format "%wx%h," "#{dst.path}"]
+        frames = `#{cmd}`.chomp.split(",")
+        assert_equal 12, frames.size
+        assert_frame_dimensions (60..70), frames
+      end
+
+      it "uses the -coalesce option" do
+        assert_equal @thumb.transformation_command.first, "-coalesce"
+      end
+
+      it "uses the -layers 'optimize' option" do
+        assert_equal @thumb.transformation_command.last, '-layers "optimize"'
+      end
+    end
+
+    context "with animated option set to false" do
+      before do
+        @thumb = Paperclip::Thumbnail.new(@file, geometry: "50x50", animated: false)
+      end
+
+      it "outputs the gif format" do
+        dst = @thumb.make
+        cmd = %[identify "#{dst.path}"]
+        assert_match /GIF/, `#{cmd}`.chomp
+      end
+
+      it "creates the single frame thumbnail when sent #make" do
+        dst = @thumb.make
+        cmd = %[identify -format "%wx%h" "#{dst.path}"]
+        assert_equal "50x50", `#{cmd}`.chomp
+      end
+    end
+
+    context "with a specified frame_index" do
+      before do
+        @thumb = Paperclip::Thumbnail.new(
+          @file,
+          geometry: "50x50",
+          frame_index: 5,
+          format: :jpg
+        )
+      end
+
+      it "creates the thumbnail from the frame index when sent #make" do
+        @thumb.make
+        assert_equal 5, @thumb.frame_index
+      end
+    end
+
+    context "with a specified frame_index out of bounds" do
+      before do
+        @thumb = Paperclip::Thumbnail.new(
+          @file,
+          geometry: "50x50",
+          frame_index: 20,
+          format: :jpg
+        )
+      end
+
+      it "errors when trying to create the thumbnail" do
+        assert_raises(Paperclip::Error) do
+          silence_stream(STDERR) do
+            @thumb.make
+          end
+        end
+      end
+    end
+  end
+
+  context "with a really long file name" do
+    before do
+      tempfile = Tempfile.new("f")
+      tempfile_additional_chars = tempfile.path.split("/")[-1].length + 15
+      image_file = File.new(fixture_file("5k.png"), "rb")
+      @file = Tempfile.new("f" * (255 - tempfile_additional_chars))
+      @file.write(image_file.read)
+      @file.rewind
+    end
+
+    it "does not throw Errno::ENAMETOOLONG" do
+      thumb = Paperclip::Thumbnail.new(@file, geometry: "50x50", format: :gif)
+      expect { thumb.make }.to_not raise_error
+    end
+  end
+end