serverspec 1.16.0 → 2.0.0.beta1

data/spec/windows/service_spec.rb

@@ -1,31 +0,0 @@
-require 'spec_helper'
-
-include SpecInfra::Helper::Cmd
-include SpecInfra::Helper::Windows
-
-describe service('Test Service') do
-  it { should be_enabled }
-  its(:command) { should eq "(FindService -name 'Test Service').StartMode -eq 'Auto'" }
-end
-
-describe service('invalid-service') do
-  it { should_not be_enabled }
-end
-
-describe service('Test Service') do
-  it { should be_running }
-  its(:command) { should eq "(FindService -name 'Test Service').State -eq 'Running'" }
-end
-
-describe service('invalid-daemon') do
-  it { should_not be_running }
-end
-
-describe service('Test service') do
-  it "should raise error if trying to check service process controller" do
-   expect { should be_running.under('supervisor') }.to raise_error
- end
-  it "should raise error if trying to check service monitoring" do
-   expect { should_not be_monitored_by('monit') }.to raise_error
- end
-end

data/spec/windows/user_spec.rb

@@ -1,44 +0,0 @@
-require 'spec_helper'
-
-include SpecInfra::Helper::Cmd
-include SpecInfra::Helper::Windows
-
-describe user('test.user') do
-  it { should exist }
-  its(:command) { should eq "(FindUser -userName 'test.user') -ne $null" }
-end
-
-describe user('test.domain\test.user') do
-  it { should exist }
-  its(:command) { should eq "(FindUser -userName 'test.user' -domain 'test.domain') -ne $null" }
-end
-
-describe user('invalid-user') do
-  it { should_not exist }
-end
-
-describe user('test.user') do
-  it { should belong_to_group 'test.group' }
-  its(:command) { should eq "(FindUserGroup -userName 'test.user' -groupName 'test.group') -ne $null" }
-end
-
-describe user('test.user.domain\test.user') do
-  it { should belong_to_group 'test.group.domain\test.group' }
-  its(:command) { should eq "(FindUserGroup -userName 'test.user' -userDomain 'test.user.domain' -groupName 'test.group' -groupDomain 'test.group.domain') -ne $null" }
-end
-
-describe user('test.user') do
-  it { should_not belong_to_group 'invalid-group' }
-end
-
-describe user('test.user') do
-  it "should raise error if command is not supported" do 
-    {
-      :have_uid => [nil],
-      :have_login_shell => [nil],
-      :have_authorized_key => [nil],
-    }.each do |method, args|
-      expect { should self.send(method, *args) }.to raise_error SpecInfra::Command::Windows::NotSupportedError
-    end
-  end
-end

data/spec/windows/windows_hot_fix_spec.rb

@@ -1,25 +0,0 @@
-require 'spec_helper'
-
-include SpecInfra::Helper::Cmd
-include SpecInfra::Helper::Windows
-
-describe windows_hot_fix('DESCRIPTION-OR-KB-ID') do
-  it { should be_installed }
-  its(:command) { should == "(FindInstalledHotFix -description 'DESCRIPTION-OR-KB-ID' -hotFixId 'DESCRIPTION-OR-KB-ID') -eq $true" }
-end
-
-describe windows_hot_fix('DESCRIPTION') do
-  it { should be_installed.with_version('KB-ID') }
-  its(:command) { should == "(FindInstalledHotFix -description 'DESCRIPTION' -hotFixId 'KB-ID') -eq $true" }
-end
-
-describe windows_hot_fix('DESCRIPTION_WITH_KB123456789_INLINED') do
-  it { should be_installed }
-  its(:command) { should == "(FindInstalledHotFix -description 'DESCRIPTION_WITH_KB123456789_INLINED' -hotFixId 'KB123456789') -eq $true" }
-end
-
-describe windows_hot_fix('DESCRIPTION_WITH_SUFFIX_KB123456789') do
-  it { should be_installed }
-  its(:command) { should == "(FindInstalledHotFix -description 'DESCRIPTION_WITH_SUFFIX_KB123456789' -hotFixId 'KB123456789') -eq $true" }
-end
-

data/spec/windows/windows_registry_key_spec.rb

@@ -1,66 +0,0 @@
-require 'spec_helper'
-
-include SpecInfra::Helper::Cmd
-include SpecInfra::Helper::Windows
-
-describe windows_registry_key('PATH/TO/THE_KEY') do
-  it { should exist }
-  its(:command) { should == "(Get-Item 'Registry::PATH/TO/THE_KEY') -ne $null" }
-end
-
-describe windows_registry_key('PATH/TO/THE_KEY') do
-  it { should have_value('Test Value') }
-  its(:command) { should == "(Compare-Object (Get-Item 'Registry::PATH/TO/THE_KEY').GetValue('') @('Test Value')) -eq $null" }
-end
-
-describe 'Key value types' do
-  context 'default type' do
-    describe windows_registry_key('PATH/TO/THE_KEY') do
-      it { should have_property('TestProperty') }
-      its(:command) { should == "(Get-Item 'Registry::PATH/TO/THE_KEY').GetValueKind('TestProperty') -eq 'String'" }
-    end
-  end
-
-  {
-    :type_string       => 'String',
-    :type_binary       => 'Binary',
-    :type_dword        => 'DWord',
-    :type_qword        => 'QWord',
-    :type_multistring  => 'MultiString',
-    :type_expandstring => 'ExpandString'
-  }.each do |sym, type|
-    context "type #{type}" do
-      describe windows_registry_key('PATH/TO/THE_KEY') do
-        it { should have_property('TestProperty', sym) }
-        its(:command) { should == "(Get-Item 'Registry::PATH/TO/THE_KEY').GetValueKind('TestProperty') -eq '#{type}'" }
-      end
-    end
-  end
-end
-
-describe windows_registry_key('PATH/TO/THE_KEY') do
-  it { should have_property_value('TestProperty', :type_binary, '12a07b') }
-  its(:command) { should == "(Compare-Object (Get-Item 'Registry::PATH/TO/THE_KEY').GetValue('TestProperty') ([byte[]] 18,160,123)) -eq $null" }
-end
-
-describe windows_registry_key('PATH/TO/THE_KEY') do
-  it { should have_property_value('TestProperty', :type_dword, 'fffffd6c') }
-  its(:command) { should == "(Compare-Object (Get-Item 'Registry::PATH/TO/THE_KEY').GetValue('TestProperty') -660) -eq $null" }
-end
-
-describe windows_registry_key('PATH/TO/THE_KEY') do
-  it { should have_property_value('TestProperty', :type_qword, '1e240') }
-  its(:command) { should == "(Compare-Object (Get-Item 'Registry::PATH/TO/THE_KEY').GetValue('TestProperty') 123456) -eq $null" }
-end
-
-describe windows_registry_key('PATH/TO/THE_KEY') do
-  it {
-    value = <<-EOF
-test line1
-test line2
-test line3
-EOF
-    should have_property_value('TestProperty', :type_multistring, value)
-  }
-  its(:command) { should == "(Compare-Object (Get-Item 'Registry::PATH/TO/THE_KEY').GetValue('TestProperty') @('test line1','test line2','test line3')) -eq $null" }
-end