stork 0.1.0.pre

data/specs/builder_spec.rb

@@ -0,0 +1,14 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "Stork::Builder" do
+  it "must load everything" do
+    builder = Stork::Builder.load(configuration)
+    collection = builder.collection
+    collection.hosts.size.must_equal 11
+    collection.chefs.size.must_equal 1
+    collection.distros.size.must_equal 1
+    collection.layouts.size.must_equal 1
+    collection.networks.size.must_equal 2
+    collection.templates.size.must_equal 1
+  end
+end

data/specs/collections_spec.rb

@@ -0,0 +1,72 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "Stork::Collections" do
+  it "should be created" do
+    Stork::Collections.new.must_be_instance_of Stork::Collections
+  end
+
+  it "responds to the hosts method" do
+    Stork::Collections.new.must_respond_to :hosts
+  end
+
+  it "responds to the layouts method" do
+    Stork::Collections.new.must_respond_to :layouts
+  end
+
+  it "responds to the networks method" do
+    Stork::Collections.new.must_respond_to :networks
+  end
+
+  it "responds to the chefs method" do
+    Stork::Collections.new.must_respond_to :chefs
+  end
+
+  it "responds to the distros method" do
+    Stork::Collections.new.must_respond_to :distros
+  end
+end
+
+describe "Stork::Collection::Base" do
+  it "should be emumerable" do
+    Stork::Collection::Base.included_modules.must_include Enumerable
+  end
+
+  it "should be created" do
+    Stork::Collection::Base.new.must_be_instance_of Stork::Collection::Base
+  end
+
+  it "responds to each" do
+    Stork::Collection::Base.new.must_respond_to :each
+  end
+
+  it "responds to validate" do
+    Stork::Collection::Base.new.must_respond_to :validate
+  end
+
+  it "should always validate by default" do
+    Stork::Collection::Base.new.validate(1).must_equal true
+  end
+
+  it "can add and iterate through values" do
+    bc = Stork::Collection::Base.new
+    bc.add(1,2,3,4,5)
+    1.upto 5 do |value|
+      bc.include?(value)
+    end
+  end
+
+  it "must get a value from the collection" do
+    class Foo
+      attr_reader :id
+      def initialize(id)
+        @id = id
+      end
+    end
+
+    bc = Stork::Collection::Base.new
+    1.upto 5 do |id|
+      bc.add(Foo.new(id))
+    end
+    bc.get(3).id.must_equal 3
+  end
+end

data/specs/configuration_spec.rb

@@ -0,0 +1,151 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "Stork::Configuration" do
+  before(:each) do
+    @path = File.dirname(__FILE__)
+    FileUtils.mkdir_p "#{@path}/tmp"
+  end
+
+  after(:each) do
+    FileUtils.rm_rf(Dir.glob("#{@path}/tmp/*"))
+  end
+
+  it "should respond to path accessors" do
+    Stork::Configuration.new.must_respond_to :path
+    Stork::Configuration.new.must_respond_to :path=
+  end
+
+  it "should respond to bundles accessors" do
+    Stork::Configuration.new.must_respond_to :bundle_path
+    Stork::Configuration.new.must_respond_to :bundle_path=
+  end
+
+  it "should respond to hosts_path" do
+    Stork::Configuration.new.must_respond_to :hosts_path
+  end
+
+  it "should respond to snippets_path" do
+    Stork::Configuration.new.must_respond_to :snippets_path
+  end
+
+  it "should respond to layouts_path accessors" do
+    Stork::Configuration.new.must_respond_to :layouts_path
+  end
+
+  it "should respond to networks_path accessors" do
+    Stork::Configuration.new.must_respond_to :networks_path
+  end
+
+  it "should respond to distros_path accessors" do
+    Stork::Configuration.new.must_respond_to :distros_path
+  end
+
+  it "should respond to templates_path accessors" do
+    Stork::Configuration.new.must_respond_to :templates_path
+  end
+
+  it "should respond to chefs_path accessors" do
+    Stork::Configuration.new.must_respond_to :chefs_path
+  end
+
+  it "should respond to authorized_keys_file accessors" do
+    Stork::Configuration.new.must_respond_to :authorized_keys_file
+    Stork::Configuration.new.must_respond_to :authorized_keys_file=
+  end
+
+  it "should respond to pxe_path accessors" do
+    Stork::Configuration.new.must_respond_to :pxe_path
+    Stork::Configuration.new.must_respond_to :pxe_path=
+  end
+
+  it "should respond to log_file accessors" do
+    Stork::Configuration.new.must_respond_to :log_file
+    Stork::Configuration.new.must_respond_to :log_file=
+  end
+
+  it "should respond to pid_file accessors" do
+    Stork::Configuration.new.must_respond_to :pid_file
+    Stork::Configuration.new.must_respond_to :pid_file=
+  end
+
+  it "should respond to server accessors" do
+    Stork::Configuration.new.must_respond_to :server
+    Stork::Configuration.new.must_respond_to :server=
+  end
+
+  it "should respond to port accessors" do
+    Stork::Configuration.new.must_respond_to :port
+    Stork::Configuration.new.must_respond_to :port=
+  end
+
+  it "should respond to bind accessors" do
+    Stork::Configuration.new.must_respond_to :bind
+    Stork::Configuration.new.must_respond_to :bind=
+  end
+
+  it "should respond to timezone accessors" do
+    Stork::Configuration.new.must_respond_to :timezone
+    Stork::Configuration.new.must_respond_to :timezone=
+  end
+
+  it "should have the defaults" do
+    config = Stork::Configuration.new
+    config.path.must_equal                  "/etc/stork"
+    config.bundle_path.must_equal           "/etc/stork/bundles"
+    config.hosts_path.must_equal            "/etc/stork/bundles/hosts"
+    config.layouts_path.must_equal          "/etc/stork/bundles/layouts"
+    config.snippets_path.must_equal         "/etc/stork/bundles/snippets"
+    config.networks_path.must_equal         "/etc/stork/bundles/networks"
+    config.distros_path.must_equal          "/etc/stork/bundles/distros"
+    config.chefs_path.must_equal            "/etc/stork/bundles/chefs"
+    config.templates_path.must_equal        "/etc/stork/bundles/templates"
+    config.authorized_keys_file.must_equal  "/etc/stork/authorized_keys"
+    config.pxe_path.must_equal              "/var/lib/tftpboot/pxelinux.cfg"
+    config.log_file.must_equal              "/var/log/stork.log"
+    config.pid_file.must_equal              "/var/run/stork.pid"
+    config.server.must_equal                "localhost"
+    config.port.must_equal                  9293
+    config.bind.must_equal                  "0.0.0.0"
+    config.timezone.must_equal              "America/Los_Angeles"
+  end
+
+    it "should load from file" do
+    config = Stork::Configuration.from_file("./specs/stork/config.rb")
+    config.path.must_equal                  "./specs/stork"
+    config.bundle_path.must_equal           "./specs/stork/bundles"
+    config.hosts_path.must_equal            "./specs/stork/bundles/hosts"
+    config.layouts_path.must_equal          "./specs/stork/bundles/layouts"
+    config.snippets_path.must_equal         "./specs/stork/bundles/snippets"
+    config.networks_path.must_equal         "./specs/stork/bundles/networks"
+    config.distros_path.must_equal          "./specs/stork/bundles/distros"
+    config.chefs_path.must_equal            "./specs/stork/bundles/chefs"
+    config.templates_path.must_equal        "./specs/stork/bundles/templates"
+    config.authorized_keys_file.must_equal  "./specs/stork/authorized_keys"
+    config.pxe_path.must_equal              "./specs/tmp/pxeboot"
+    config.log_file.must_equal              "./specs/tmp/stork.log"
+    config.pid_file.must_equal              "./specs/tmp/stork.pid"
+    config.server.must_equal                "localhost"
+    config.port.must_equal                  5000
+    config.bind.must_equal                  "0.0.0.0"
+    config.timezone.must_equal              "America/New_York"
+  end
+
+  it "should create a file if the configuration file does not exist" do
+    config = Stork::Configuration.from_file("./specs/tmp/config.rb")
+    File.exist?("./specs/tmp/config.rb").must_equal true
+    expected_content = <<-EOS
+# Stork configuration file"
+path                    "/etc/stork"
+bundle_path             "/etc/stork/bundles"
+authorized_keys_file    "/etc/stork/authorized_keys"
+pxe_path                "/var/lib/tftpboot/pxelinux.cfg"
+log_file                "/var/log/stork.log"
+pid_file                "/var/run/stork.pid"
+server                  "localhost"
+port                    9293
+bind                    "0.0.0.0"
+timezone                "America/Los_Angeles"
+    EOS
+    File.read("./specs/tmp/config.rb").must_equal expected_content
+  end
+end

data/specs/keys/snakeoil-root.pem

@@ -0,0 +1,27 @@
+-----BEGIN RSA PRIVATE KEY-----
+MIIEogIBAAKCAQEA5OPAyH1UC88Z8L8m+AnXgNQvz3qFOXjtZnHjAm2h4H+RKPYZ
+J2YdIuvrWZC7XReRtNqzlVoKSj0DglKlng6aRHm0mlZevqm34WOe9z2r1AFUb0gh
+t+JfRk/uTNWMBZhGvrzJmUFhmqfFvyEioUMKLO+lu54GoLgs9KsgBCXcYpDABME7
+xK6uLjWcyD7pr1Cpx2BbhuO2P1zNXi527MEhQTzC1A4Yt/KXdR/rWLBRRT1+0Bzo
+NbdM0NdGFZxJ+AlEfVIffSpNwjQAUS7vHlfPhjhkTBLVHLgTXx0QtN2LwPIhuMUi
+unErkxTqFMelLe83XB1TYWfZPYHuA2OZ2vj6bQIDAQABAoIBAGyMNhjelsUi6kJp
+5Kkswa6u8h2LFTM0TiGPUQENzP8SgFzUmQk+PAMbrvlC0hhL3SXPseraUJb0aH2d
+hD1432Ap96RZ4YS6KCIThIfsD1jzaH99zb/O8y/9KB34B/d/R82c6l5ry0X02qrR
+pAKmMGUvIYHgZ3RA49EEdqKA8gsrhKY0o+LtW3naESvD2waFH+mbJI5jBTJyAgQ+
+r24uclBtB7VmrrBLJ+V32Njtee8e7FG9Xs3lyTAL60ipp7WZBGp94Y9TiBHoQIUh
+crp0h5o3KMUZJTA6tChLMLlOEjhSU1+LTL8yyjf345X6XL0/8P4nBP1YedSJt8rs
+ZY39/AECgYEA+uziOjHbT7mTMu/tRwsG5Sc3ioJqBsa8tAQxVfMicRtBDq/F9uRX
+GxJ+zBwDpVdLQjVD5zCjWc43nR/wbsjtE6/8yfjLntApWPUssuQAd7xDlZPIEIpD
+kcezATWCzy+poCJhp4wH5ikAGuMBOceAX0pqj2pgdmwOlb2/D74Wlc0CgYEA6YTI
+t3Ihuws5OJLj/zQzT5uFi41XdOlxeZJjf6AWN3BiKyCJ/i+lkPBvtw0tq11NAs9a
+BVeKPMOWJM2y1oL838n0LBeq/oBOHBR/PPyJzRdkeVn7NuM+G24rc9FWSumtGLvk
+uxQOp5MM32wK7WnBSt98kwkJ9nJFDR03BNrDVyECgYAXtSnqtasy7SWrOmAAxlnw
+bLQisg+ydDSADaVbqY0ngpuy94iMuyY/uI+iWUM+6/CAYOf5f+7vHTzD67CbxwAf
+TBFmQ8t5RdGiRgfjHwesSG1aRIwyg92+eE/BXXzudmJgbt8rJV/ZryYDZE9JVkAa
+wL0wr6xNhAgcvcC/jAY2QQKBgADjIUQZKemlBEWjwTwB/cPqqlo6Yj+ud2Dn3nro
+p8z0H1tcl0mg8rcXQsVmRmslQpqlIQluKLdMYvCm22wXOVC8WrIkMOEgqatPpKAd
+sYRW92nCnsK5oE3IYF/jRrmoI6E5bYgMbnXSiDT9GxmF0lcvfDCu0xvdmUeQedoJ
+3r4hAoGAJ4AzBoxBnsLSkY0Yjk3d3Disa74KvaEqJo2SUxIgqNuVkST06lBOTkJV
+T3Alfl5wmACNES6YZYRouF22GByc92JZusQYSA+orrDeyvmA/nBZ2mduNaRt4fWE
+In0hofU8eFN2YObs/mbUyg24dmsWLjlBitd4y72kASjlwWCZ3Ls=
+-----END RSA PRIVATE KEY-----

data/specs/keys/snakeoil-validation.pem

@@ -0,0 +1,27 @@
+-----BEGIN RSA PRIVATE KEY-----
+MIIEoAIBAAKCAQEAwxUcd7UHY6O4bnxtuAq6xVbmdOlhpsy78bZVyG46I2bpXLDy
+Vqa458uJqovtsFr65/lKK8LVvz3gSHP2UXC6+afDnJoRrbBrPu+NH03lVyLmV0kP
+GmDS7+4767ywK/yZW187sJ6HOCv9ximoW9Bs3t0QbMcGHOilppjSbWNNPiqDL9qk
+9feAq1ncvLenhc7bzVN8/EgEuAqV5J65dkf9LDbtRlzl4cZUagxgxAZnt4wL/je6
+tqpiM+u0K85QJLsUJ8Uqq/ZCywAMKmGxYVuFUPmVfapS/y6LXEeT/RReltjL+zAD
+qrEdaiqYvOttMYk3kDWiXuLXvbwhlJXUJQAwxQIDAQABAoIBAHDz9kmxfZfJoe4H
+CZg4TjAYwtMKlkn33RJ1GnI0sGDzI0dSBN77JbDAfvNKldM4unI6OyHfa9eRQh1x
+VzuMZBZNdstjwbypm08TcMihV5r+UBRV7vK9ASV+8R7rX634Ues/1tXK1ExH3GYy
+lJKkuYTIxsvU6MswQUmWzrAbgQvumT55mguR0eT2KzUzP7SCcliWUr9xDfahsmsg
+tavhR9FF9uCiYBm9y2/4JFA5Cb1r1YPeQ/VFMiJP0vG4AmiipmmkiYQEFzT7UHG2
+g9X1zv9tDX/DI9Pmno0dAohQKRaycN7k9tXWuHU9xTJiHqUQ47A5TuGOiK7O5mLw
+rBQ+Z4ECgYEA+PNuxtwziG6qchhOw+lX6jdFPiFBobW+9xcdFx/Btiq3HW9UT/CD
+gARzJknzvYQSA7iK5yLp9dY8ZnAVfmTFvfTGdObQ2XlP7peJkb6JWtLECGoOzrRR
+peG3+ij839L1fwunZGvOzcBDcloW626L84nfnj04dIWl4/bu/NoPRfECgYEAyJsz
+9pGcJ+bsl5Bv7SASrCiOfHO5luQgrdCTPKbeOdHRJVOhsp0snMtdUXdaCtV2GX22
+YW5CvckB26QJGdnwPiqcB2liRPnAYNeSBIoGAzhv8SJWXl7XwKiWieJuFTfgLFB+
+lc8H/qcfMkI8aJAAwVo24XLzVA677Mf8NBOytBUCgYBHuctW3Ca0zj2pdbtr0pUT
+1CzNA8PnFXgZtL0a5nlnRNNRVbwS9BbPEXkjtPbWyXBvRgIvKe4CeGEamnx22A3o
+9tce40mU/tC6y0pFhYIJeuQkEHqHr4g+pNPe7WQ+EIfOvMrTsgP5X8WO8snbtxP3
+bOfSrYzQdZkgHwsoKqNv4QJ/WuX4pcFVAL+idQr9rHTcASZfagUGE1lLdXcNQG5c
+Q9bO7hr3KfgOPv3nSwLJyh7vZJ2SBpPvqg9qyBuMBCq8sW6dRL57yMViZn9Hqsbf
+8pWgI6Nrf1d6a9H4ZII1X2fyLCJNOZSWCs2vVRauSLL3pKU8OOvdVjlW7fOwU+iZ
+EQKBgFGOottZB3OUEkHVfbw39ERf1Saqc2oOfw8YM9H0TIhCJvTTSlhaL6OYqEig
+I3z0yoLGTD/0e7DXjC2kQyf+9LTMwcodC6MbwZ/cncDkebFLZ1DDig7+s0WoAjfI
+Kl/ogSogT0HuY/6VcRjkvccDN7aZvLDXrS9N7EwqhjojsIl6
+-----END RSA PRIVATE KEY-----

data/specs/kickstart_spec.rb

@@ -0,0 +1,36 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "Stork::Deploy::Kickstart" do
+  before(:each) do
+    @host = collection.hosts.get("server.example.org")
+    @path = File.dirname(__FILE__)
+    FileUtils.mkdir_p "#{@path}/tmp"
+  end
+
+  after(:each) do
+    FileUtils.rm_rf(Dir.glob("#{@path}/tmp/*"))
+  end
+
+  %w{ RHEL5 RHEL6 RHEL7 }.each do |ver|
+    it "should generate valid kickstart configurations for #{ver}" do
+      ksvalidate  = "#{@path}/scripts/ksvalidate.sh"
+      testpath    = "#{@path}"
+      kspath      = "#{@path}/tmp/output.ks"
+      template    = "#{@path}/stork/bundles/templates/default.ks.erb"
+
+      ks = Stork::Deploy::InstallScript.new(@host, :kickstart)
+
+      File.open("#{@path}/tmp/output.ks", 'w') do |file|
+        file.write(ks.render)
+      end
+
+      Open3.popen3("#{ksvalidate} #{testpath} #{kspath} #{ver}") do |stdin, stdout, stderr, wait_thr|
+        exit_status = wait_thr.value.to_i
+        output = (stdout.readlines + stderr.readlines).join
+        assert_equal(0, exit_status, output)
+      end
+
+      File.unlink("#{@path}/tmp/output.ks")
+    end
+  end
+end

data/specs/pxe_spec.rb

@@ -0,0 +1,57 @@
+require File.dirname(__FILE__) + '/spec_helper'
+require 'fileutils'
+
+describe "Stork::PXE" do
+  before :all do
+    @host = collection.hosts.get("server.example.org")
+    @path = './specs/tmp/pxeboot'
+    FileUtils.mkdir_p @path
+    @pxe = Stork::PXE.new(@host, 'midwife.example.org', 9293)
+  end
+
+  after(:each) do
+    FileUtils.rm_rf(Dir.glob('./specs/tmp/*'))
+  end
+
+  it "creates the localboot file" do
+    @pxe.localboot
+    expected_content = <<-EOS
+DEFAULT local
+PROMPT 0
+TIMEOUT 0
+TOTALTIMEOUT 0
+ONTIMEOUT local
+LABEL local
+        LOCALBOOT -1
+    EOS
+    File.read("#{@path}/01-00-11-22-33-44-55").must_equal expected_content
+  end
+
+  it "creates the default file" do
+    @pxe.default
+    expected_content = <<-EOS
+DEFAULT local
+PROMPT 0
+TIMEOUT 0
+TOTALTIMEOUT 0
+ONTIMEOUT local
+LABEL local
+        LOCALBOOT -1
+    EOS
+    File.read("#{@path}/01-00-11-22-33-44-55").must_equal expected_content
+  end
+
+  it "creates the install file" do
+    @pxe.install
+    expected_content = <<-EOS
+default install
+prompt 0
+timeout 1
+label install
+        kernel vmlinuz
+        ipappend 2
+        append initrd=initrd.img ksdevice=bootif priority=critical kssendmac ks=http://midwife.example.org:9293/host/server.example.org
+    EOS
+    File.read("#{@path}/01-00-11-22-33-44-55").must_equal expected_content
+  end
+end

data/specs/resource_chef_spec.rb

@@ -0,0 +1,122 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "Chef" do
+  it "should be created" do
+    Stork::Resource::Chef.new("test").must_be_instance_of Stork::Resource::Chef
+  end
+
+  it "should respond to the name method" do
+    Stork::Resource::Chef.new("test").must_respond_to :name
+  end
+
+  it "should respond to the url accessors" do
+    Stork::Resource::Chef.new("test").must_respond_to :url
+    Stork::Resource::Chef.new("test").must_respond_to :url=
+  end
+
+  it "should respond to the version accessors" do
+    Stork::Resource::Chef.new("test").must_respond_to :version
+    Stork::Resource::Chef.new("test").must_respond_to :version=
+  end
+
+  it "should respond to the client_key accessors" do
+    Stork::Resource::Chef.new("test").must_respond_to :client_key
+    Stork::Resource::Chef.new("test").must_respond_to :client_key=
+  end
+
+  it "should respond to the client_name accessors" do
+    Stork::Resource::Chef.new("test").must_respond_to :client_name
+    Stork::Resource::Chef.new("test").must_respond_to :client_name=
+  end
+
+  it "should respond to the validator_name accessors" do
+    Stork::Resource::Chef.new("test").must_respond_to :validator_name
+    Stork::Resource::Chef.new("test").must_respond_to :validator_name=
+  end
+
+  it "should respond to the validation_key accessors" do
+    Stork::Resource::Chef.new("test").must_respond_to :validation_key
+    Stork::Resource::Chef.new("test").must_respond_to :validation_key=
+  end
+
+  it "should respond to the encrypted_data_bag_secret accessors" do
+    Stork::Resource::Chef.new("test").must_respond_to :encrypted_data_bag_secret
+    Stork::Resource::Chef.new("test").must_respond_to :encrypted_data_bag_secret=
+  end
+
+  it "should require url" do
+    proc {
+      ckey = "./specs/keys/snakeoil-root.pem"
+      vkey = "./specs/keys/snakeoil-validation.pem"
+
+      chef = Stork::Resource::Chef.build("test") do
+        version "11.4.4"
+        client_key ckey
+        validation_key vkey
+      end
+      }.must_raise(SyntaxError)
+  end
+
+  it "should require version" do
+    proc {
+      ckey = "./specs/keys/snakeoil-root.pem"
+      vkey = "./specs/keys/snakeoil-validation.pem"
+
+      chef = Stork::Resource::Chef.build("test") do
+        url "https://chef.example.org"
+        client_key ckey
+        validation_key vkey
+      end
+      }.must_raise(SyntaxError)
+  end
+
+  it "should require client_key" do
+    proc {
+      ckey = "./specs/keys/snakeoil-root.pem"
+      vkey = "./specs/keys/snakeoil-validation.pem"
+
+      chef = Stork::Resource::Chef.build("test") do
+        url "https://chef.example.org"
+        version "11.4.4"
+        validation_key vkey
+      end
+      }.must_raise(SyntaxError)
+  end
+
+  it "should require validation_key" do
+    proc {
+      ckey = "./specs/keys/snakeoil-root.pem"
+      vkey = "./specs/keys/snakeoil-validation.pem"
+
+      chef = Stork::Resource::Chef.build("test") do
+        url "https://chef.example.org"
+        version "11.4.4"
+        client_key ckey
+      end
+      }.must_raise(SyntaxError)
+  end
+
+  it "should build" do
+    ckey = "./specs/keys/snakeoil-root.pem"
+    vkey = "./specs/keys/snakeoil-validation.pem"
+
+    chef = Stork::Resource::Chef.build("test") do
+      url "https://chef.example.org"
+      version "11.4.4"
+      client_name "root"
+      client_key ckey
+      validator_name "validator"
+      validation_key vkey
+      encrypted_data_bag_secret "secret"
+    end
+
+    chef.name.must_equal "test"
+    chef.url.must_equal "https://chef.example.org"
+    chef.version.must_equal "11.4.4"
+    chef.client_name.must_equal "root"
+    chef.client_key.must_equal File.read(ckey)
+    chef.validator_name.must_equal "validator"
+    chef.validation_key.must_equal File.read(vkey)
+    chef.encrypted_data_bag_secret.must_equal "secret"
+  end
+end

data/specs/resource_distro_spec.rb

@@ -0,0 +1,38 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "Stork::Resource::Distro" do
+  it "should be created" do
+    Stork::Resource::Distro.new("test").must_be_instance_of Stork::Resource::Distro
+  end
+
+  it "should respond to the name method" do
+    Stork::Resource::Distro.new("test").must_respond_to :name
+  end
+
+  it "should respond to the kernel accessors" do
+    Stork::Resource::Distro.new("test").must_respond_to :kernel
+    Stork::Resource::Distro.new("test").must_respond_to :kernel=
+  end
+
+  it "should respond to the image accessors" do
+    Stork::Resource::Distro.new("test").must_respond_to :image
+    Stork::Resource::Distro.new("test").must_respond_to :image=
+  end
+
+  it "should respond to the url accessors" do
+    Stork::Resource::Distro.new("test").must_respond_to :url
+    Stork::Resource::Distro.new("test").must_respond_to :url=
+  end
+
+  it "should build" do
+    distro = Stork::Resource::Distro.build("test") do
+      kernel "vmlinuz"
+      image "initrd.img"
+      url "http://mirror.example.org"
+    end
+    distro.name.must_equal "test"
+    distro.kernel.must_equal "vmlinuz"
+    distro.image.must_equal "initrd.img"
+    distro.url.must_equal "http://mirror.example.org"
+  end
+end

data/specs/resource_firewall_spec.rb

@@ -0,0 +1,71 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "Stork::Resource::Firewall" do
+  it "must respond to the enabled accessors" do
+    Stork::Resource::Firewall.new.must_respond_to :enabled
+    Stork::Resource::Firewall.new.must_respond_to :enabled=
+  end
+
+  it "must respond to the trusted_devices accessors" do
+    Stork::Resource::Firewall.new.must_respond_to :trusted_devices
+    Stork::Resource::Firewall.new.must_respond_to :trusted_devices=
+  end
+
+  it "must respond to the allowed_ports accessors" do
+    Stork::Resource::Firewall.new.must_respond_to :allowed_ports
+    Stork::Resource::Firewall.new.must_respond_to :allowed_ports=
+  end
+
+  it "must respond to the ssh accessors" do
+    Stork::Resource::Firewall.new.must_respond_to :ssh
+    Stork::Resource::Firewall.new.must_respond_to :ssh=
+  end
+
+  it "must respond to the telnet accessors" do
+    Stork::Resource::Firewall.new.must_respond_to :telnet
+    Stork::Resource::Firewall.new.must_respond_to :telnet=
+  end
+
+  it "must respond to the smtp accessors" do
+    Stork::Resource::Firewall.new.must_respond_to :smtp
+    Stork::Resource::Firewall.new.must_respond_to :smtp=
+  end
+
+  it "must respond to the http accessors" do
+    Stork::Resource::Firewall.new.must_respond_to :http
+    Stork::Resource::Firewall.new.must_respond_to :http=
+  end
+
+  it "must respond to the ftp accessors" do
+    Stork::Resource::Firewall.new.must_respond_to :ftp
+    Stork::Resource::Firewall.new.must_respond_to :ftp=
+  end
+
+  it "must build disabled" do
+    fw = Stork::Resource::Firewall.build do
+      disable
+    end
+    fw.enabled.must_equal false
+  end
+
+  it "must build enabled" do
+    fw = Stork::Resource::Firewall.build do
+      trusted 'eth1'
+      trusted 'eth2'
+      allow '8080:tcp'
+      nossh
+      telnet
+      smtp
+      http
+      ftp
+    end
+    fw.enabled.must_equal true
+    fw.trusted_devices.must_equal ['eth1', 'eth2']
+    fw.allowed_ports.must_equal ['8080:tcp']
+    fw.ssh.must_equal false
+    fw.telnet.must_equal true
+    fw.smtp.must_equal true
+    fw.http.must_equal true
+    fw.ftp.must_equal true
+  end
+end