aruba-win-fix 0.14.2

data/lib/aruba/cucumber/core.rb

@@ -0,0 +1,5 @@
+if Aruba::VERSION >= '1.0.0'
+  Aruba.configure do |config|
+    config.working_directory = 'tmp/cucumber'
+  end
+end

data/lib/aruba/cucumber/environment.rb

@@ -0,0 +1,42 @@
+Given(/^a mocked home directory$/)do
+  set_environment_variable 'HOME', expand_path('.')
+end
+
+Given(/^I set the environment variable "(.*)" to "(.*)"/) do |variable, value|
+  set_environment_variable(variable.to_s, value.to_s)
+end
+
+Given(/^I append "(.*)" to the environment variable "(.*)"/) do |value, variable|
+  append_environment_variable(variable.to_s, value.to_s)
+end
+
+Given(/^I prepend "(.*)" to the environment variable "(.*)"/) do |value, variable|
+  prepend_environment_variable(variable.to_s, value.to_s)
+end
+
+Given(/^I set the environment variables? to:/) do |table|
+  table.hashes.each do |row|
+    variable = row['variable'].to_s
+    value = row['value'].to_s
+
+    set_environment_variable(variable, value)
+  end
+end
+
+Given(/^I append the values? to the environment variables?:/) do |table|
+  table.hashes.each do |row|
+    variable = row['variable'].to_s
+    value = row['value'].to_s
+
+    append_environment_variable(variable, value)
+  end
+end
+
+Given(/^I prepend the values? to the environment variables?:/) do |table|
+  table.hashes.each do |row|
+    variable = row['variable'].to_s
+    value = row['value'].to_s
+
+    prepend_environment_variable(variable, value)
+  end
+end

data/lib/aruba/cucumber/file.rb

@@ -0,0 +1,201 @@
+Given(/^I use (?:a|the) fixture(?: named)? "([^"]*)"$/) do |name|
+  copy File.join(aruba.config.fixtures_path_prefix, name), name
+  cd name
+end
+
+Given(/^I copy (?:a|the) (file|directory)(?: (?:named|from))? "([^"]*)" to "([^"]*)"$/) do |file_or_directory, source, destination|
+  copy source, destination
+end
+
+Given(/^I move (?:a|the) (file|directory)(?: (?:named|from))? "([^"]*)" to "([^"]*)"$/) do |file_or_directory, source, destination|
+  move source, destination
+end
+
+Given(/^(?:a|the|(?:an empty)) directory(?: named)? "([^"]*)"$/) do |dir_name|
+  create_directory(dir_name)
+end
+
+Given(/^(?:a|the) directory(?: named)? "([^"]*)" with mode "([^"]*)"$/) do |dir_name, dir_mode|
+  create_directory(dir_name)
+  chmod(dir_mode, dir_name)
+end
+
+Given(/^(?:a|the) file(?: named)? "([^"]*)" with:$/) do |file_name, file_content|
+  write_file(file_name, file_content)
+end
+
+Given(/^(?:an|the) executable(?: named)? "([^"]*)" with:$/) do |file_name, file_content|
+  step %(a file named "#{file_name}" with mode "0755" and with:), file_content
+end
+
+Given(/^(?:a|the) file(?: named)? "([^"]*)" with "([^"]*)"$/) do |file_name, file_content|
+  write_file(file_name, unescape_text(file_content))
+end
+
+Given(/^(?:a|the) file(?: named)? "([^"]*)" with mode "([^"]*)" and with:$/) do |file_name, file_mode, file_content|
+  write_file(file_name, unescape_text(file_content))
+  chmod(file_mode, file_name)
+end
+
+Given(/^(?:a|the) (\d+) byte file(?: named)? "([^"]*)"$/) do |file_size, file_name|
+  write_fixed_size_file(file_name, file_size.to_i)
+end
+
+Given(/^(?:an|the) empty file(?: named)? "([^"]*)"$/) do |file_name|
+  write_file(file_name, "")
+end
+
+Given(/^(?:an|the) empty file(?: named)? "([^"]*)" with mode "([^"]*)"$/) do |file_name, file_mode|
+  write_file(file_name, "")
+  chmod(file_mode, file_name)
+end
+
+When(/^I write to "([^"]*)" with:$/) do |file_name, file_content|
+  write_file(file_name, file_content)
+end
+
+When(/^I overwrite(?: (?:a|the) file(?: named)?)? "([^"]*)" with:$/) do |file_name, file_content|
+  overwrite_file(file_name, file_content)
+end
+
+When(/^I append to "([^"]*)" with:$/) do |file_name, file_content|
+  append_to_file(file_name, file_content)
+end
+
+When(/^I append to "([^"]*)" with "([^"]*)"$/) do |file_name, file_content|
+  append_to_file(file_name, file_content)
+end
+
+When(/^I remove (?:a|the) (?:file|directory)(?: named)? "([^"]*)"( with full force)?$/) do |name, force_remove|
+  remove(name, :force => force_remove.nil? ? false : true)
+end
+
+Given(/^(?:a|the) (?:file|directory)(?: named)? "([^"]*)" does not exist$/) do |name|
+  remove(name, :force => true)
+end
+
+When(/^I cd to "([^"]*)"$/) do |dir|
+  cd(dir)
+end
+
+Then(/^the following files should (not )?exist:$/) do |negated, files|
+  files = files.rows.flatten
+
+  if negated
+    expect(files).not_to include an_existing_file
+  else
+    expect(files).to Aruba::Matchers.all be_an_existing_file
+  end
+end
+
+Then(/^(?:a|the) (file|directory)(?: named)? "([^"]*)" should (not )?exist(?: anymore)?$/) do |directory_or_file, path, expect_match|
+  if directory_or_file == 'file'
+    if expect_match
+      expect(path).not_to be_an_existing_file
+    else
+      expect(path).to be_an_existing_file
+    end
+  elsif directory_or_file == 'directory'
+    if expect_match
+      expect(path).not_to be_an_existing_directory
+    else
+      expect(path).to be_an_existing_directory
+    end
+  else
+    fail ArgumentError, %("#{directory_or_file}" can only be "directory" or "file".)
+  end
+end
+
+Then(/^(?:a|the) file matching %r<(.*?)> should (not )?exist$/) do |pattern, expect_match|
+  if expect_match
+    expect(all_paths).not_to include a_file_name_matching(pattern)
+  else
+    expect(all_paths).to include match a_file_name_matching(pattern)
+  end
+end
+
+Then(/^(?:a|the) (\d+) byte file(?: named)? "([^"]*)" should (not )?exist$/) do |size, file, negated|
+  if negated
+    expect(file).not_to have_file_size(size)
+  else
+    expect(file).to have_file_size(size)
+  end
+end
+
+Then(/^the following directories should (not )?exist:$/) do |negated, directories|
+  directories = directories.rows.flatten
+
+  if negated
+    expect(directories).not_to include an_existing_directory
+  else
+    expect(directories).to Aruba::Matchers.all be_an_existing_directory
+  end
+end
+
+Then(/^(?:a|the) file(?: named)? "([^"]*)" should (not )?contain "([^"]*)"$/) do |file, negated, content|
+  if negated
+    expect(file).not_to have_file_content file_content_including(content.chomp)
+  else
+    expect(file).to have_file_content file_content_including(content.chomp)
+  end
+end
+
+Then(/^(?:a|the) file(?: named)? "([^"]*)" should (not )?contain:$/) do |file, negated, content|
+  if negated
+    expect(file).not_to have_file_content file_content_including(content.chomp)
+  else
+    expect(file).to have_file_content file_content_including(content.chomp)
+  end
+end
+
+Then(/^(?:a|the) file(?: named)? "([^"]*)" should (not )?contain exactly:$/) do |file, negated, content|
+  if negated
+    expect(file).not_to have_file_content content
+  else
+    expect(file).to have_file_content content
+  end
+end
+
+Then(/^(?:a|the) file(?: named)? "([^"]*)" should (not )?match %r<([^\/]*)>$/) do |file, negated, content|
+  if negated
+    expect(file).not_to have_file_content file_content_matching(content)
+  else
+    expect(file).to have_file_content file_content_matching(content)
+  end
+end
+
+Then(/^(?:a|the) file(?: named)? "([^"]*)" should (not )?match \/([^\/]*)\/$/) do |file, negated, content|
+  if negated
+    expect(file).not_to have_file_content file_content_matching(content)
+  else
+    expect(file).to have_file_content file_content_matching(content)
+  end
+end
+
+Then(/^(?:a|the) file(?: named)? "([^"]*)" should (not )?be equal to file "([^"]*)"/) do |file, negated, reference_file|
+  if negated
+    expect(file).not_to have_same_file_content_like(reference_file)
+  else
+    expect(file).to have_same_file_content_like(reference_file)
+  end
+end
+
+Then(/^the mode of filesystem object "([^"]*)" should (not )?match "([^"]*)"$/) do |file, negated, permissions|
+  # rubocop:disable Metrics/LineLength
+  Aruba.platform.deprecated('The use of step "the mode of filesystem object "([^"]*)" should (not )?match "([^"]*)" is deprecated. Use "^the (?:file|directory)(?: named)? "([^"]*)" should have permissions "([^"]*)"$" instead')
+  # rubocop:enable Metrics/LineLength
+
+  if negated
+    expect(file).not_to have_permissions(permissions)
+  else
+    expect(file).to have_permissions(permissions)
+  end
+end
+
+Then(/^the (?:file|directory)(?: named)? "([^"]*)" should( not)? have permissions "([^"]*)"$/) do |path, negated, permissions|
+  if negated
+    expect(path).not_to have_permissions(permissions)
+  else
+    expect(path).to have_permissions(permissions)
+  end
+end

data/lib/aruba/cucumber/hooks.rb

@@ -0,0 +1,160 @@
+require 'aruba/aruba_path'
+require 'aruba/api'
+require 'aruba/platform'
+World(Aruba::Api)
+
+if Aruba::VERSION >= '1.0.0'
+  Around do |_, block|
+    Aruba.platform.with_environment(&block)
+  end
+end
+
+Before do
+  # ... so every change needs to be done later
+  prepend_environment_variable 'PATH', aruba.config.command_search_paths.join(File::PATH_SEPARATOR) + File::PATH_SEPARATOR
+  set_environment_variable 'HOME', aruba.config.home_directory
+end
+
+After do
+  restore_env
+  terminate_all_commands
+  aruba.command_monitor.clear
+end
+
+Before('~@no-clobber') do
+  setup_aruba
+end
+
+Before('@puts') do
+  aruba.announcer.mode = :puts
+end
+
+Before('@announce-command') do
+  aruba.announcer.activate :command
+end
+
+Before('@announce-command-content') do
+  aruba.announcer.activate :command_content
+end
+
+Before('@announce-command-filesystem-status') do
+  aruba.announcer.activate :command_filesystem_status
+end
+
+Before('@announce-cmd') do
+  Aruba.platform.deprecated 'The use of "@announce-cmd"-hook is deprecated. Please use "@announce-command"'
+
+  aruba.announcer.activate :command
+end
+
+Before('@announce-output') do
+  aruba.announcer.activate :stdout
+  aruba.announcer.activate :stderr
+end
+
+Before('@announce-stdout') do
+  aruba.announcer.activate :stdout
+end
+
+Before('@announce-stderr') do
+  aruba.announcer.activate :stderr
+end
+
+Before('@announce-dir') do
+  Aruba.platform.deprecated 'The use of "@announce-dir"-hook is deprecated. Please use "@announce-directory"'
+
+  aruba.announcer.activate :directory
+end
+
+Before('@announce-directory') do
+  aruba.announcer.activate :directory
+end
+
+Before('@announce-stop-signal') do
+  aruba.announcer.activate :stop_signal
+end
+
+Before('@announce-env') do
+  Aruba.platform.deprecated 'The use of "@announce-env"-hook is deprecated. Please use "@announce-changed-environment"'
+
+  aruba.announcer.activate :environment
+end
+
+Before('@announce-environment') do
+  Aruba.platform.deprecated '@announce-environment is deprecated. Use @announce-changed-environment instead'
+
+  aruba.announcer.activate :changed_environment
+end
+
+Before('@announce-full-environment') do
+  aruba.announcer.activate :full_environment
+end
+
+Before('@announce-modified-environment') do
+  Aruba.platform.deprecated '@announce-modified-environment is deprecated. Use @announce-changed-environment instead'
+
+  aruba.announcer.activate :changed_environment
+end
+
+Before('@announce-changed-environment') do
+  aruba.announcer.activate :changed_environment
+end
+
+Before('@announce-timeout') do
+  aruba.announcer.activate :timeout
+end
+
+Before('@announce-wait-time') do
+  aruba.announcer.activate :wait_time
+end
+
+Before('@announce') do
+  aruba.announcer.activate :changed_environment
+  aruba.announcer.activate :command
+  aruba.announcer.activate :directory
+  aruba.announcer.activate :environment
+  aruba.announcer.activate :full_environment
+  aruba.announcer.activate :modified_environment
+  aruba.announcer.activate :stderr
+  aruba.announcer.activate :stdout
+  aruba.announcer.activate :stop_signal
+  aruba.announcer.activate :timeout
+  aruba.announcer.activate :wait_time
+  aruba.announcer.activate :command_content
+  aruba.announcer.activate :command_filesystem_status
+end
+
+Before('@debug') do
+  aruba.config.command_launcher = :debug
+end
+
+# After('@debug') do
+#   aruba.config.command_launcher = :spawn
+# end
+
+Before('@ansi') do
+  # rubocop:disable Metrics/LineLength
+  Aruba::Platform.deprecated('The use of "@ansi" is deprecated. Use "@keep-ansi-escape-sequences" instead. But be aware, that this hook uses the aruba configuration and not an instance variable')
+  # rubocop:enable Metrics/LineLength
+
+  aruba.config.remove_ansi_escape_sequences = false
+end
+
+Before('@keep-ansi-escape-sequences') do
+  aruba.config.remove_ansi_escape_sequences = false
+  aruba.config.keep_ansi = true
+end
+
+Before '@mocked_home_directory' do
+  Aruba.platform.deprecated('The use of "@mocked_home_directory" is deprecated. Use "@mocked-home-directory" instead')
+
+  set_environment_variable 'HOME', expand_path('.')
+end
+
+Before '@mocked-home-directory' do
+  set_environment_variable 'HOME', expand_path('.')
+end
+
+Before('@disable-bundler') do
+  unset_bundler_env_vars
+end

data/lib/aruba/cucumber/rvm.rb

@@ -0,0 +1,3 @@
+Given(/^I'm using a clean gemset "([^"]*)"$/) do |gemset|
+  use_clean_gemset(gemset)
+end

data/lib/aruba/cucumber/testing_frameworks.rb

@@ -0,0 +1,95 @@
+# Cucumber
+Then /^the feature(?:s)? should( not)?(?: all)? pass$/ do |negated|
+  if negated
+    step 'the output should contain " failed)"'
+    step 'the exit status should be 1'
+  else
+    step 'the output should not contain " failed)"'
+    step 'the output should not contain " undefined)"'
+    step 'the exit status should be 0'
+  end
+end
+
+# Cucumber
+Then /^the feature(?:s)? should( not)?(?: all)? pass with( regex)?:$/ do |negated, regex, string|
+  if negated
+    step 'the output should contain " failed)"'
+    step 'the exit status should be 1'
+  else
+    step 'the output should not contain " failed)"'
+    step 'the output should not contain " undefined)"'
+    step 'the exit status should be 0'
+  end
+
+  if regex
+    step "the output should match %r<#{string}>"
+  else
+    step 'the output should contain:', string
+  end
+end
+
+# RSpec
+Then /^the spec(?:s)? should( not)?(?: all)? pass(?: with (\d+) failures?)?$/ do |negated, count_failures|
+  if negated
+    if count_failures.nil?
+      step 'the output should not contain "0 failures"'
+    else
+      step %(the output should contain "#{count_failures} failures")
+    end
+
+    step 'the exit status should be 1'
+  else
+    step 'the output should contain "0 failures"'
+    step 'the exit status should be 0'
+  end
+end
+
+# RSpec
+Then /^the spec(?:s)? should( not)?(?: all)? pass with( regex)?:$/ do |negated, regex, string|
+  if negated
+    step 'the output should not contain "0 failures"'
+    step 'the exit status should be 1'
+  else
+    step 'the output should contain "0 failures"'
+    step 'the exit status should be 0'
+  end
+
+  if regex
+    step "the output should match %r<#{string}>"
+  else
+    step 'the output should contain:', string
+  end
+end
+
+# Minitest
+Then /^the tests(?:s)? should( not)?(?: all)? pass(?: with (\d+) failures?)?$/ do |negated, count_failures|
+  if negated
+    if count_failures.nil?
+      step 'the output should not contain "0 errors"'
+    else
+      step %(the output should contain "#{count_failures} errors")
+    end
+
+    step 'the exit status should be 1'
+  else
+    step 'the output should contain "0 errors"'
+    step 'the exit status should be 0'
+  end
+end
+
+# Minitest
+Then /^the test(?:s)? should( not)?(?: all)? pass with( regex)?:$/ do |negated, regex, string|
+  if negated
+    step 'the output should contain "0 errors"'
+    step 'the exit status should be 1'
+  else
+    step 'the output should not contain "0 errors"'
+    step 'the exit status should be 0'
+  end
+
+  if regex
+    step "the output should match %r<#{string}>"
+  else
+    step 'the output should contain:', string
+  end
+end