skeptick 0.1.0

data/test/sugar/debugging_test.rb

@@ -0,0 +1,24 @@
+require_relative '../test_helper'
+require 'skeptick/sugar/debugging'
+
+class DebuggingTest < Skeptick::TestCase
+  include Skeptick
+
+  def test_save_in_image
+    img = image do
+      image 'foo'
+      save  'path'
+    end
+
+    cmd = convert(img)
+    assert_equal 'convert foo -write path miff:-', cmd.to_s
+  end
+
+  def test_save_in_convert
+    cmd = convert('foo') do
+      save 'path'
+    end
+
+    assert_equal 'convert foo -write path miff:-', cmd.to_s
+  end
+end

data/test/sugar/drawing_test.rb

@@ -0,0 +1,86 @@
+require_relative '../test_helper'
+require 'skeptick/sugar/drawing'
+
+class DrawingTest < Skeptick::TestCase
+  include Skeptick
+
+  def test_canvas_in_image_with_size
+    img = image { canvas :none, size: '100x200' }
+    cmd = convert(img)
+
+    assert_equal 'convert -size 100x200 canvas:none miff:-', cmd.to_s
+  end
+
+  def test_canvas_in_image_without_size
+    img = image { canvas :none }
+    cmd = convert(img)
+    assert_equal 'convert canvas:none miff:-', cmd.to_s
+  end
+
+  def test_canvas_in_convert_with_size
+    cmd = convert { canvas :none, size: '100x200' }
+    assert_equal 'convert -size 100x200 canvas:none miff:-', cmd.to_s
+  end
+
+  def test_canvas_in_convert_without_size
+    cmd = convert { canvas :none }
+    assert_equal 'convert canvas:none miff:-', cmd.to_s
+  end
+
+  def test_draw_in_image
+    img = image { draw 'fill none bezier 1,2 3,4' }
+    cmd = convert(img)
+    assert_equal 'convert -draw fill\ none\ bezier\ 1,2\ 3,4 miff:-', cmd.to_s
+  end
+
+  def test_draw_in_convert
+    cmd = convert { draw 'fill none bezier 1,2 3,4' }
+    assert_equal 'convert -draw fill\ none\ bezier\ 1,2\ 3,4 miff:-', cmd.to_s
+  end
+
+  def test_write_in_image_without_left_top
+    img = image { write 'Foo bar baz.' }
+    cmd = convert(img)
+    assert_equal 'convert -draw text\ \\\'Foo\ bar\ baz.\\\' miff:-', cmd.to_s
+  end
+
+  def test_write_in_image_with_left_top
+    img = image { write 'Foo bar baz.', left: 7, top: 9 }
+    cmd = convert(img)
+    assert_equal 'convert -draw text\ 7,9\ \\\'Foo\ bar\ baz.\\\' miff:-',
+      cmd.to_s
+  end
+
+  def test_write_in_image_with_left_only
+    img = image { write 'Foo bar baz.', left: 7 }
+    cmd = convert(img)
+    assert_equal 'convert -draw text\ \\\'Foo\ bar\ baz.\\\' miff:-', cmd.to_s
+  end
+
+  def test_write_in_convert_without_left_top
+    cmd = convert { write 'Foo bar baz.' }
+    assert_equal 'convert -draw text\ \\\'Foo\ bar\ baz.\\\' miff:-', cmd.to_s
+  end
+
+  def test_write_in_convert_with_left_top
+    cmd = convert { write 'Foo bar baz.', left: 7, top: 9 }
+    assert_equal 'convert -draw text\ 7,9\ \\\'Foo\ bar\ baz.\\\' miff:-',
+      cmd.to_s
+  end
+
+  def test_write_in_convert_with_top_only
+    cmd = convert { write 'Foo bar baz.', top: 9 }
+    assert_equal 'convert -draw text\ \\\'Foo\ bar\ baz.\\\' miff:-', cmd.to_s
+  end
+
+  def test_font_in_image
+    img = image { font 'handwriting - dakota Regular' }
+    cmd = convert(img)
+    assert_equal 'convert -font Handwriting---Dakota-Regular miff:-', cmd.to_s
+  end
+
+  def test_font_in_convert
+    cmd = convert { font 'handwriting - dakota Regular' }
+    assert_equal 'convert -font Handwriting---Dakota-Regular miff:-', cmd.to_s
+  end
+end

data/test/sugar/edges_test.rb

@@ -0,0 +1,99 @@
+require_relative '../test_helper'
+require 'skeptick/sugar/edges'
+
+class EdgesTest < Skeptick::TestCase
+  include Skeptick
+
+  def test_rounded_corners_image_without_block_and_radius
+    img = rounded_corners_image('foo', size: '200x300')
+
+    assert_equal 'convert foo ( +clone -alpha transparent -background none ' +
+      '-draw roundrectangle\ 1,1\ 200,300\ 15,15 ) -alpha set -compose dstin ' +
+      '-composite miff:-', img.to_s
+  end
+
+  def test_rounded_corners_image_with_block_and_radius
+    img = rounded_corners_image(size: '200x300', radius: 20) do
+      image 'tile:granite:'
+      apply '-brightness-contrast', '38x-33'
+    end
+
+    assert_equal 'convert tile:granite: -brightness-contrast 38x-33 ( +clone ' +
+      '-alpha transparent -background none -draw roundrectangle\ 1,1\ ' +
+      '200,300\ 20,20 ) -alpha set -compose dstin -composite miff:-', img.to_s
+  end
+
+  def test_nested_rounded_corners_image
+    cmd = convert(to: 'bar') do
+      rounded_corners_image('foo', size: '200x300', radius: 5)
+    end
+
+    assert_equal 'convert ( foo ( +clone -alpha transparent -background none ' +
+      '-draw roundrectangle\\ 1,1\\ 200,300\\ 5,5 ) -alpha set -compose ' +
+      'dstin -composite ) bar', cmd.to_s
+  end
+
+  def test_nested_rounded_corners_image_via_lvar_arg
+    img = rounded_corners_image('foo', size: '200x300', radius: 5)
+    cmd = convert(img, to: 'bar')
+
+    assert_equal 'convert ( foo ( +clone -alpha transparent -background none ' +
+      '-draw roundrectangle\\ 1,1\\ 200,300\\ 5,5 ) -alpha set -compose ' +
+      'dstin -composite ) bar', cmd.to_s
+  end
+
+  def test_nested_rounded_corners_image_via_lvar_in_block
+    img = rounded_corners_image('foo', size: '200x300', radius: 5)
+    cmd = convert(to: 'bar') { image(img) }
+
+    assert_equal 'convert ( foo ( +clone -alpha transparent -background none ' +
+      '-draw roundrectangle\\ 1,1\\ 200,300\\ 5,5 ) -alpha set -compose ' +
+      'dstin -composite ) bar', cmd.to_s
+  end
+
+  def test_torn_paper_image_without_block_spread_blur_threshold
+    img = torn_paper_image('foo')
+    assert_equal 'convert foo ( +clone -alpha extract -virtual-pixel black ' +
+      '-spread 1 -blur 0x.7 -threshold 50% ) -alpha off ' +
+      '-compose copy_opacity -composite miff:-', img.to_s
+  end
+
+  def test_torn_paper_image_with_block_spread_blur_threshold
+    img = torn_paper_image('foo', spread: 17, blur: '1x4', threshold: 70) do
+      image 'tile:granite:'
+      apply '-brightness-contrast', '38x-33'
+    end
+
+    assert_equal 'convert tile:granite: -brightness-contrast 38x-33 ( +clone ' +
+      '-alpha extract -virtual-pixel black -spread 17 -blur 1x4 -threshold ' +
+      '70% ) -alpha off -compose copy_opacity -composite miff:-', img.to_s
+  end
+
+  def test_nested_torn_paper_image
+    cmd = convert(to: 'bar') do
+      torn_paper_image('foo')
+    end
+
+    assert_equal 'convert ( foo ( +clone -alpha extract -virtual-pixel black ' +
+      '-spread 1 -blur 0x.7 -threshold 50% ) -alpha off -compose ' +
+      'copy_opacity -composite ) bar', cmd.to_s
+  end
+
+  def test_nested_torn_paper_image_via_lvar_arg
+    img = torn_paper_image('foo')
+    cmd = convert(img, to: 'bar')
+
+    assert_equal 'convert ( foo ( +clone -alpha extract -virtual-pixel black ' +
+      '-spread 1 -blur 0x.7 -threshold 50% ) -alpha off -compose ' +
+      'copy_opacity -composite ) bar', cmd.to_s
+  end
+
+  def test_nested_torn_paper_image_via_lvar_in_block
+    img = torn_paper_image('foo')
+    cmd = convert(to: 'bar') { image(img) }
+
+    assert_equal 'convert ( foo ( +clone -alpha extract -virtual-pixel black ' +
+      '-spread 1 -blur 0x.7 -threshold 50% ) -alpha off -compose ' +
+      'copy_opacity -composite ) bar', cmd.to_s
+  end
+end

data/test/sugar/formatting_test.rb

@@ -0,0 +1,19 @@
+require_relative '../test_helper'
+require 'skeptick/sugar/formatting'
+
+class FormattingTest < Skeptick::TestCase
+  include Skeptick
+
+  def test_format_in_image
+    img = image { format "roundrectangle 1,1 %[fx:w], %[fx:h] 5,5" }
+    cmd = convert(img)
+    assert_equal 'convert -format roundrectangle\ 1,1\ \%\[fx:w\],\ ' +
+      '\%\[fx:h\]\ 5,5 miff:-', cmd.to_s
+  end
+
+  def test_format_in_convert
+    cmd = convert { format "roundrectangle 1,1 %[fx:w], %[fx:h] 5,5" }
+    assert_equal 'convert -format roundrectangle\ 1,1\ \%\[fx:w\],\ ' +
+      '\%\[fx:h\]\ 5,5 miff:-', cmd.to_s
+  end
+end

data/test/sugar/geometry_test.rb

@@ -0,0 +1,92 @@
+require_relative '../test_helper'
+require 'skeptick/sugar/geometry'
+
+class GeometryTest < Skeptick::TestCase
+  include Skeptick
+
+  def test_blank_geometry
+    assert_equal '', geometry
+  end
+
+  def test_geometry_with_size
+    assert_equal '100x200', geometry(size: '100x200')
+  end
+
+  def test_geometry_with_width
+    assert_equal '100x', geometry(width: 100)
+  end
+
+  def test_geometry_with_height
+    assert_equal 'x200', geometry(height: 200)
+  end
+
+  def test_geometry_with_width_and_height
+    assert_equal '100x200', geometry(width: 100, height: 200)
+  end
+
+  def test_geometry_with_left
+    assert_equal '+5+0', geometry(left: 5)
+  end
+
+  def test_geometry_with_top
+    assert_equal '+0+7', geometry(top: 7)
+  end
+
+  def test_geometry_with_left_top
+    assert_equal '+5+7', geometry(left: 5, top: 7)
+  end
+
+  def test_geometry_with_negative_left
+    assert_equal '-5+7', geometry(left: -5, top: 7)
+  end
+
+  def test_geometry_with_negative_left_top
+    assert_equal '-5-7', geometry(left: -5, top: -7)
+  end
+
+  def test_geometry_with_left_width_height
+    assert_equal '100x200+5+0', geometry(left: 5, width: 100, height: 200)
+  end
+
+  def test_geometry_with_top_width_height
+    assert_equal '100x200+0+7', geometry(top: 7, width: 100, height: 200)
+  end
+
+  def test_geometry_with_left_top_width_height
+    assert_equal '100x200+5-7',
+      geometry(left: 5, top: -7, width: 100, height: 200)
+  end
+
+  def test_geometry_with_percentage
+    assert_equal '100x200%',
+      geometry(width: 100, height: 200, percentage: true)
+  end
+
+  def test_geometry_with_exact
+    assert_equal '100x200!', geometry(width: 100, height: 200, exact: true)
+  end
+
+  def test_geometry_with_expand_only
+    assert_equal '100x200<',
+      geometry(width: 100, height: 200, expand_only: true)
+  end
+
+  def test_geometry_with_expand_only
+    assert_equal '100x200>',
+      geometry(width: 100, height: 200, shrink_only: true)
+  end
+
+  def test_everything_together
+    assert_equal '100x200-7+5%!<>',
+      geometry(
+        width: 100,
+        height: 200,
+        left: -7,
+        top: 5,
+        percentage: true,
+        exact: true,
+        expand_only: true,
+        shrink_only: true
+      )
+  end
+end

data/test/sugar/resizing_test.rb

@@ -0,0 +1,25 @@
+require_relative '../test_helper'
+require 'skeptick/sugar/resizing'
+
+class ResizingTest < Skeptick::TestCase
+  include Skeptick
+
+  def test_resize_image_with_geometry_options
+    img = resized_image('foo', width: 200, shrink_only: true)
+    cmd = convert(img)
+    assert_equal 'convert foo[200x>] miff:-', cmd.to_s
+  end
+
+  def test_resize_image_nested_via_lvar
+    img = resized_image('foo', width: 200, shrink_only: true)
+    cmd = convert { image(img) }
+    assert_equal 'convert foo[200x>] miff:-', cmd.to_s
+  end
+
+  def test_resize_image_nested_via_block
+    cmd = convert do
+      resized_image('foo', height: 100, shrink_only: true)
+    end
+    assert_equal 'convert foo[x100>] miff:-', cmd.to_s
+  end
+end

data/test/sugar/sequence_manipulation_test.rb

@@ -0,0 +1,98 @@
+require_relative '../test_helper'
+require 'skeptick/sugar/sequence_manipulation'
+
+class SequenceManipulationTest < Skeptick::TestCase
+  include Skeptick
+
+  def test_clone_without_args
+    cmd = convert { clone }
+    assert_equal 'convert +clone miff:-', cmd.to_s
+  end
+
+  def test_clone_with_one_arg
+    cmd = convert { clone(1) }
+    assert_equal 'convert -clone 1 miff:-', cmd.to_s
+  end
+
+  def test_clone_with_two_args
+    cmd = convert { clone(1,3) }
+    assert_equal 'convert -clone 1,3 miff:-', cmd.to_s
+  end
+
+  def test_clone_with_array
+    cmd = convert { clone([1,3]) }
+    assert_equal 'convert -clone 1,3 miff:-', cmd.to_s
+  end
+
+  def test_clone_with_inclusive_range
+    cmd = convert { clone(1..3) }
+    assert_equal 'convert -clone 1-3 miff:-', cmd.to_s
+  end
+
+  def test_clone_with_exclusive_range
+    cmd = convert { clone(1...3) }
+    assert_equal 'convert -clone 1-2 miff:-', cmd.to_s
+  end
+
+  def test_clone_in_nested_convert
+    cmd = convert { convert { clone } }
+    assert_equal 'convert ( +clone ) miff:-', cmd.to_s
+  end
+
+  def test_delete_without_args
+    cmd = convert { delete }
+    assert_equal 'convert +delete miff:-', cmd.to_s
+  end
+
+  def test_delete_with_one_arg
+    cmd = convert { delete(1) }
+    assert_equal 'convert -delete 1 miff:-', cmd.to_s
+  end
+
+  def test_delete_with_two_args
+    cmd = convert { delete(1,3) }
+    assert_equal 'convert -delete 1,3 miff:-', cmd.to_s
+  end
+
+  def test_delete_with_array
+    cmd = convert { delete([1,3]) }
+    assert_equal 'convert -delete 1,3 miff:-', cmd.to_s
+  end
+
+  def test_delete_with_inclusive_range
+    cmd = convert { delete(1..3) }
+    assert_equal 'convert -delete 1-3 miff:-', cmd.to_s
+  end
+
+  def test_delete_with_exclusive_range
+    cmd = convert { delete(1...3) }
+    assert_equal 'convert -delete 1-2 miff:-', cmd.to_s
+  end
+
+  def test_delete_in_nested_convert
+    cmd = convert { convert { delete } }
+    assert_equal 'convert ( +delete ) miff:-', cmd.to_s
+  end
+
+  def test_swap_without_args
+    cmd = convert { swap }
+    assert_equal 'convert +swap miff:-', cmd.to_s
+  end
+
+  def test_swap_with_one_arg_raises_error
+    assert_raises(ArgumentError) do
+      convert{ swap(1) }.to_s
+    end
+  end
+
+  def test_swap_with_two_args
+    cmd = convert { swap(1,2) }
+    assert_equal 'convert -swap 1,2 miff:-', cmd.to_s
+  end
+
+  def test_swap_with_three_args_raises_error
+    assert_raises(ArgumentError) do
+      convert{ swap(1,2,3) }.to_s
+    end
+  end
+end