carps 0.2.1

data/features/steps/safety.rb

@@ -0,0 +1,17 @@
+require "carps/ui"
+
+Given /^\$SAFE is (\d+)$/ do |level|
+   $SAFE = level.to_i
+end
+
+Then /^allow checking a file exists in response to user input$/ do
+   File.exists?(question "Enter file name to check existense of")
+end
+
+Then /^disallow eval in response to user input$/ do
+   begin
+      eval(question "Enter arbitrary ruby statement")
+   rescue InsecureOperation => e
+      puts "Recovered from Insecure Operation"
+   end
+end

data/features/steps/sessions.rb

@@ -0,0 +1,37 @@
+require "carps/service/session"
+
+class ValidSessionMessage
+
+   def session
+      "killingjoke"
+   end
+
+end
+
+class InvalidSessionMessage
+
+   def session
+      "simplyred"
+   end
+
+end
+
+Given /^a session manager$/ do
+   $session = SessionManager.new
+   $session.session = "killingjoke"
+end
+
+Then /^accept a message meant for this session$/ do
+   now = $session.belong? ValidSessionMessage.new
+   unless now
+      raise StandardError, "SessionManager did not accept valid message."
+   end
+end
+
+Then /^deny a message intended for another session$/ do
+   now = $session.belong? InvalidSessionMessage.new
+   if now
+      raise StandardError, "SessionManager accepted invalid message."
+   end
+end
+

data/features/steps/start_dm.rb

@@ -0,0 +1,46 @@
+require "carps/service/dm/config"
+require "carps/service/dm/start"
+
+require "carps/service/session"
+
+class MockDmStartMailer
+   def address
+      "howdy"
+   end
+end
+
+class MockGame
+
+   def start mailer
+      puts "Starting game..."
+   end
+
+   def resume mailer
+      puts "Resuming game..."
+   end
+end
+
+class MockConfig < DM::GameConfig
+   def spawn
+      MockGame.new
+   end
+end
+
+Then /^host a new game called (.+) with resource (.+) and mod (.+)$/ do |game_name, campaign, mod_name|
+   $game = DM::GameConfig.new game_name, mod_name, campaign, "A game about things", "session12345", "dungeon_master@email.com" 
+end
+
+Then /^save the game as (.+)$/ do |filename|
+   $game.save
+end
+
+Then /^the dm resumes a previous game called (.+)$/ do |filename|
+   $game = DM::GameConfig.load "games/" + filename
+end
+
+Then /^present the start game interface to the dm$/ do
+   begin
+      DM::StartInterface.start_game_interface MockDmStartMailer.new, MockConfig, $session 
+   rescue SystemExit
+   end
+end

data/features/steps/start_player.rb

@@ -0,0 +1,65 @@
+require "carps/service"
+
+require "carps/protocol"
+
+class MockPlayerGame
+   def join_game mailer
+      puts "Joining game."
+   end
+
+   def resume mailer
+      puts "Resuming game"
+   end
+
+end
+
+class MockPlayerConfig < Player::GameConfig
+   def spawn
+      MockPlayerGame.new
+   end
+end
+
+class PlayerStartMailer
+
+   def read klass, from=nil
+      msg = nil
+      until msg
+         msg = check
+         sleep 1
+      end
+      msg
+   end
+
+   def check klass, from=nil
+      if @mail
+         mail = @mail
+         @mail = nil
+         return mail
+      end
+   end
+
+
+   def send to, message
+      puts "Sending message to #{to}:"
+      puts message
+   end
+
+   def invite
+      @mail = CARPS::Invite.new "the dm", "test", "the description", "the session" 
+   end
+end
+
+Given /^a mailer stub for the player start interface$/ do
+   $mailer = PlayerStartMailer.new
+end
+
+When /^an invite is sent to the player$/ do
+   $mailer.invite
+end
+
+Then /^present the start game interface to the player$/ do
+   begin
+      Player::StartInterface.start_game_interface $mailer, MockPlayerConfig, $session
+   rescue SystemExit
+   end
+end

data/features/steps/timeout.rb

@@ -0,0 +1,32 @@
+require "carps/util/timeout"
+
+Given /^a long running command$/ do
+   $command = lambda {
+      loop do
+      end
+   }
+end
+
+Then /^timeout the command after (\d+) second$/ do |t|
+   begin
+      CARPS::timeout t.to_i, "Test command 1" do
+         $command.call
+      end
+   rescue Timeout::Error => e
+      puts "The command was timed out as expected:"
+      puts e.to_s
+   end
+end
+
+Then /^give the command (\d+) second to complete$/ do |t|
+   CARPS::timeout t.to_i, "test command 2" do
+      $command.call
+   end
+end
+
+Given /^a short command$/ do
+   $command = lambda {
+      puts "Hi honey!"
+   }
+end
+

data/features/steps/type_verification.rb

@@ -0,0 +1,36 @@
+require "carps/mod"
+
+require "yaml"
+
+Given /^an integer$/ do
+   $val = 123
+end
+
+Then /^verify: (.+) as a (.+)$/ do |opt, type_name|
+   type = Sheet::TypeParser.parse type_name
+   accepted, coerced = type.verify $val
+   pass = opt == "accept"
+   unless (pass and accepted) or (not pass and not accepted)
+      raise StandardError, "Verification mechanism fucked: should pass #{pass}, did pass #{accepted}"
+   end
+end
+
+Given /^a nil value$/ do
+   $val = nil
+end
+
+Given /^a string$/ do
+   $val = "howdy!"
+end
+
+Given /^'yes'$/ do
+   $val = YAML.load "yes"
+end
+
+Given /^'bronze'$/ do
+   $val = "bronze"
+end
+
+Given /^'gold'$/ do
+   $val = "gold"
+end

data/features/steps/wizard.rb

@@ -0,0 +1,123 @@
+require "carps/wizard/wizard"
+
+require "fileutils"
+
+$sweet_files = ["roses", "kittens"]
+$salty_files = ["robots", "miniguns"]
+$salty_dirs = ["strength", "power"]
+
+class SweetWizard < Wizard
+
+   def initialize
+      super $sweet_files, []
+   end
+
+end
+
+class SillyStep < Setup::Interface
+
+   def initialize
+      super
+   end
+
+   def description
+      "A pretty silly configuration step that doesn't do much."
+   end
+
+   def test
+      puts "Yup, looks good to me."
+      test_passed
+   end
+
+end
+
+class SaltyWizard < Wizard
+
+   def initialize
+      super $salty_files, $salty_dirs
+      set_steps SillyStep.new
+   end
+
+end
+
+Then /^setup email$/ do
+   em = Setup::Email.new
+   em.run
+end
+
+Then /^setup processing$/ do
+   pr = Setup::Process.new
+   pr.run
+end
+
+Then /^setup editor$/ do
+   ed = Setup::Editor.new
+   ed.run
+end
+
+Given /^a player wizard$/ do
+   $wizard = Player::Wizard.new
+end
+
+Then /^clean the wizard directory$/ do
+   wiz = CARPS::root_config + "/wizard/"
+   FileUtils.rm_rf wiz
+   FileUtils.mkdir wiz
+end
+
+Then /^run the wizard$/ do
+   $wizard.run
+end
+
+Given /^a sweet wizard$/ do
+   FileUtils.touch $CONFIG + $sweet_files[0]
+   $wizard = SweetWizard.new
+end
+
+Then /^detect missing files$/ do
+   unless $wizard.first_time?
+      raise StandardError, "The wizard thought the files were present when they were not."
+   end
+end
+
+Given /^a salty wizard$/ do
+   FileUtils.touch $salty_files.map {|f| $CONFIG + "/" + f}
+   FileUtils.mkdir $salty_dirs.map {|f| $CONFIG + "/" + f}
+   $wizard = SaltyWizard.new
+end
+
+Then /^confirm files are present$/ do
+   if $wizard.first_time?
+      raise StandardError, "The wizard thought the files were not present when they were."
+   end
+end
+
+Given /^a partially populated folder$/ do
+   FileUtils.rmdir $CONFIG + $salty_dirs[0]
+end
+
+Given /^the config directory is (.+)$/ do |dir|
+   CARPS::config_dir dir
+end
+
+Then /^the salty wizard builds needed directories$/ do
+   $wizard.create_directories
+   dirs_exist = $salty_dirs.map {|f| File.exists?($CONFIG + "/" + f)}
+   unless dirs_exist.all?
+      raise StandardError, "Salty Wizard did not create needed directories."
+   end
+end
+
+When /^one of the salty wizard's files is in fact a directory$/ do
+   file = $CONFIG + "/" + $salty_files[0]
+   FileUtils.rm file
+   FileUtils.mkdir file
+end
+
+Then /^the wizard, attempting to create files, causes the program to exit$/ do
+   begin
+      $wizard.create_files
+   rescue SystemExit => e
+      puts e
+   end
+end

data/features/support/common.rb

@@ -0,0 +1,29 @@
+module CommonHelpers
+  def in_tmp_folder(&block)
+    FileUtils.chdir(@tmp_root, &block)
+  end
+
+  def in_project_folder(&block)
+    project_folder = @active_project_folder || @tmp_root
+    FileUtils.chdir(project_folder, &block)
+  end
+
+  def in_home_folder(&block)
+    FileUtils.chdir(@home_path, &block)
+  end
+
+  def force_local_lib_override(project_name = @project_name)
+    rakefile = File.read(File.join(project_name, 'Rakefile'))
+    File.open(File.join(project_name, 'Rakefile'), "w+") do |f|
+      f << "$:.unshift('#{@lib_path}')\n"
+      f << rakefile
+    end
+  end
+
+  def setup_active_project_folder project_name
+    @active_project_folder = File.join(@tmp_root, project_name)
+    @project_name = project_name
+  end
+end
+
+World(CommonHelpers)

data/features/support/env.rb

@@ -0,0 +1,14 @@
+require File.dirname(__FILE__) + "/../../lib/carps"
+
+gem 'cucumber'
+require 'cucumber'
+
+# This is shit and means I can't test carps properly
+# Before do
+#  @tmp_root = File.dirname(__FILE__) + "/../../tmp"
+#  @home_path = File.expand_path(File.join(@tmp_root, "home"))
+#  @lib_path  = File.expand_path(File.dirname(__FILE__) + "/../../lib")
+#  FileUtils.rm_rf   @tmp_root
+#  FileUtils.mkdir_p @home_path
+#  ENV['HOME'] = @home_path
+# end

data/features/support/matchers.rb

@@ -0,0 +1,11 @@
+module Matchers
+  def contain(expected)
+    simple_matcher("contain #{expected.inspect}") do |given, matcher|
+      matcher.failure_message = "expected #{given.inspect} to contain #{expected.inspect}"
+      matcher.negative_failure_message = "expected #{given.inspect} not to contain #{expected.inspect}"
+      given.index expected
+    end
+  end
+end
+
+World(Matchers)

data/features/timeout.feature

@@ -0,0 +1,11 @@
+Feature: timeout
+   As a programmer,
+   I find ruby's timeout lacking.
+
+   Scenario: timeout
+      Given a long running command
+      Then timeout the command after 1 second 
+
+   Scenario: no timeout
+      Given a short command
+      Then give the command 1 second to complete

data/features/type_verification.feature

@@ -0,0 +1,48 @@
+Feature: type verification
+   In order to verify character sheets correctly
+   the basic types making up those character sheets must be verified
+
+   Scenario: accept integer as integer
+      Given an integer
+      Then verify: accept as a integer
+
+   Scenario: accept integer as optional integer
+      Given an integer
+      Then verify: accept as a optional integer
+
+   Scenario: accept nil as optional integer
+      Given a nil value
+      Then verify: accept as a optional integer
+
+   Scenario: deny nil as integer
+      Given a nil value
+      Then verify: deny as a integer
+
+   Scenario: deny string as integer
+      Given a string
+      Then verify: deny as a integer
+
+   Scenario: deny string as optional integer
+      Given a string
+      Then verify: deny as a optional integer
+
+   Scenario: accept boolean as boolean
+      Given 'yes'
+      Then verify: accept as a boolean
+
+   Scenario: accept nil as optional choice gold silver
+      Given a nil value
+      Then verify: accept as a optional choice gold silver
+
+   Scenario: accept nil as optional boolean
+      Given a nil value
+      Then verify: accept as a optional boolean
+
+   Scenario: accept gold as choice gold silver
+      Given 'gold'
+      Then verify: accept as a choice gold silver
+
+   Scenario: deny bronze as choice gold silver
+      Given 'bronze'
+      Then verify: deny as a choice gold silver
+

data/features/wizard.feature

@@ -0,0 +1,50 @@
+Feature: wizard
+   In order to play CARPS
+   we must have a valid configuration
+
+   Scenario: detect missing files
+      Given the config directory is wizard
+      Then clean the wizard directory
+      Given a sweet wizard
+      Then detect missing files
+
+   Scenario: confirm files present
+      Given the config directory is wizard
+      Then clean the wizard directory
+      Given a salty wizard
+      Then confirm files are present
+
+   Scenario: build needed directories
+      Given the config directory is wizard
+      Then clean the wizard directory
+      Given a salty wizard
+      Given a partially populated folder
+      Then the salty wizard builds needed directories
+
+   Scenario: fail on error
+      Given the config directory is wizard
+      Then clean the wizard directory
+      Given a salty wizard
+      Given one of the salty wizard's files is in fact a directory
+      Then the wizard, attempting to create files, causes the program to exit
+
+   Scenario: setup email
+      Given the config directory is wizard
+      Then clean the wizard directory
+      Then setup email
+
+   Scenario: setup processing
+      Given the config directory is wizard
+      Then clean the wizard directory
+      Then setup processing
+
+    Scenario: setup editor
+      Given the config directory is wizard
+      Then clean the wizard directory
+      Then setup editor
+
+   Scenario: configure player
+      Given the config directory is wizard
+      Then clean the wizard directory
+      Given a salty wizard
+      Then run the wizard

data/lib/carps/crypt/accept_handshake.rb

@@ -0,0 +1,40 @@
+# Copyright 2010 John Morrice
+ 
+# This file is part of CARPS.
+
+# CARPS is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# CARPS is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with CARPS.  If not, see <http://www.gnu.org/licenses/>.
+
+require "carps/protocol/message"
+
+module CARPS
+
+   class AcceptHandshake < Message
+
+      # Extend the protocol for this OKAY message
+      protoword :accept_handshake 
+
+      # Parse from the void
+      def AcceptHandshake.parse blob
+         forget, blob = find K.accept_handshake, blob
+         [AcceptHandshake.new, blob]
+     end
+
+      # Emit
+      def emit
+         K.accept_handshake
+      end
+
+   end
+
+end

data/lib/carps/crypt/default_messages.rb

@@ -0,0 +1,29 @@
+# Copyright 2010 John Morrice
+ 
+# This file is part of CARPS.
+
+# CARPS is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# CARPS is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with CARPS.  If not, see <http://www.gnu.org/licenses/>.
+
+require "carps/crypt/handshake"
+require "carps/crypt/public_key"
+require "carps/crypt/accept_handshake"
+
+module CARPS
+
+   # Services will be built by extending upon these messages
+   def default_messages 
+      [Handshake, AcceptHandshake, PublicKey]
+   end
+
+end

data/lib/carps/crypt/handshake.rb

@@ -0,0 +1,41 @@
+# Copyright 2010 John Morrice
+ 
+# This file is part of CARPS.
+
+# CARPS is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# CARPS is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with CARPS.  If not, see <http://www.gnu.org/licenses/>.
+
+require "carps/protocol/message"
+
+module CARPS
+   
+   # A cryptographic handshake request
+   class Handshake < Message
+
+      # Extend the protocol for this request 
+      protoword :handshake
+
+      # Parse from the void
+      def Handshake.parse blob
+         forget, blob = find K.handshake, blob
+         [Handshake.new, blob]
+      end
+
+      # Emit
+      def emit
+         K.handshake
+      end
+
+   end
+
+end