waw 0.2.2

data/test/spec/fullstate/session_spec.rb

@@ -0,0 +1,43 @@
+require 'waw'
+describe ::Waw::Session do
+  include ::Waw::Fixtures
+  before(:each) { load_empty_app   }
+  after(:each)  { unload_empty_app }
+  
+  def session
+    @empty_app.session
+  end
+  
+  it "should allows being extended" do
+    class ::Waw::Session
+      session_var :my_variable, 15
+    end
+    (session.my_variable = 12).should == 12
+    session.my_variable.should == 12
+  end
+  
+  it "should allow resetting variables" do
+    class ::Waw::Session
+      session_var :my_variable, 15
+    end
+    session.my_variable = 12
+    session.reset(:my_variable)
+    session.my_variable.should == 15
+  end
+  
+  it "should allow query variables without parameters" do
+    class ::Waw::Session
+      session_var(:my_query){ "hello" }
+    end
+    session.my_query.should == "hello"
+  end
+  
+  it "should allow query variables with parameters" do
+    class ::Waw::Session
+      session_var(:my_id, 12)
+      session_var(:my_query){|session| session.my_id }
+    end
+    session.my_query.should == 12
+  end
+  
+end

data/test/spec/fullstate/variable_spec.rb

@@ -0,0 +1,55 @@
+require "waw"
+describe Waw::FullState::Variable do
+  include ::Waw::Fixtures
+  before(:each) { load_empty_app   }
+  after(:each)  { unload_empty_app }
+  
+  # Creates a variable instance
+  def variable(name, default_value = nil, &block)
+    Waw::FullState::Variable.new(name, default_value, &block)
+  rescue => ex
+    raise ex
+  end
+  
+  it "should accept respect assignation" do
+    var = variable(:name)
+    (var.value = 12).should == 12
+    var.value.should == 12
+    var.value += 1
+    var.value.should == 13
+  end
+  
+  it "should respect default values" do
+    var = variable(:name, 12)
+    var.value.should == 12
+    var.value += 1
+    var.value.should == 13
+  end
+  
+  it "should respect block default values" do
+    var = variable(:name){ "hello world" }
+    var.value.should == "hello world"
+    var.value = 1
+    var.value.should == 1
+  end
+  
+  it "should allow reset with a default value" do
+    var = variable(:name, 12)
+    var.value = 2
+    var.reset
+    var.value.should == 12
+  end
+  
+  it "should allow reset with a block as default" do
+    var = variable(:name){ "hello world" }
+    var.value = 2
+    var.reset
+    var.value.should == "hello world"
+  end
+  
+  it "should detect bad usages" do
+    # don't know why it does not work
+    #variable(:name, 12){ 13 }.should raise_exception(ArgumentError)
+  end
+
+end

data/test/spec/resource_collection_spec.rb

@@ -0,0 +1,50 @@
+require 'waw'
+describe ::Waw::ResourceCollection do
+  
+  it "should support creating resources simply" do
+    resources = ::Waw::ResourceCollection.parse_resources <<-EOF
+      name   'hello'
+      who    12
+    EOF
+    resources.name.should == 'hello'
+    resources.who.should == 12
+  end
+  
+  it "should support default values" do
+    resources = ::Waw::ResourceCollection.parse_resources <<-EOF
+    EOF
+    resources.name('hello').should == 'hello'
+  end
+  
+  it "should support passing blocks" do
+    resources = ::Waw::ResourceCollection.parse_resources <<-EOF
+      what  {|r| 12 }
+    EOF
+    resources.what.should == 12
+  end
+  
+  it "should support installing Proc as resources" do
+    resources = ::Waw::ResourceCollection.parse_resources <<-EOF
+      what  Kernel.lambda { 12 }
+    EOF
+    Proc.should === resources.what
+    resources.what.call.should == 12
+  end
+  
+  it "should support self referencing" do
+    resources = ::Waw::ResourceCollection.parse_resources <<-EOF
+      who     'hello'
+      who2    who
+    EOF
+    resources.who2.should == 'hello'
+  end
+
+  it "should support self referencing with blocks" do
+    resources = ::Waw::ResourceCollection.parse_resources <<-EOF
+      who     {'hello'}
+      who2    who
+    EOF
+    resources.who2.should == 'hello'
+  end
+
+end

data/test/spec/test_all.rb

@@ -0,0 +1,9 @@
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', '..', 'lib'))
+require 'waw'
+require 'spec/autorun'
+require File.join(File.dirname(__FILE__), 'fixtures')
+test_files = Dir[File.join(File.dirname(__FILE__), '**/*_spec.rb')]
+test_files.each { |file|
+  require(file) 
+}
+

data/test/spec/tools/mail/mail_agent_spec.rb

@@ -0,0 +1,116 @@
+require 'waw'
+require 'waw/tools/mail'
+describe ::Waw::Tools::MailAgent do
+  
+  def agent
+    @agent ||= ::Waw::Tools::MailAgent.new
+  end
+  
+  it("should provide a mail helper, hiding the Mail class") {
+    mail = agent.mail("Subject", "Body", "sender", "receiver")
+    mail.is_a?(::Waw::Tools::MailAgent::Mail).should be_true
+    mail.subject.should == "Subject"
+    mail.body.should == "Body"
+    mail.from.should == "sender"
+    mail.to.should == ["receiver"]
+  }
+  
+  it("should provide a template helper, hiding the Template class") {
+    template = agent.template("Subject", "Body", "sender", "receiver")
+    template.is_a?(::Waw::Tools::MailAgent::Template).should be_true
+    template.subject.should == "Subject"
+    template.body.should == "Body"
+    template.from.should == "sender"
+    template.to.should == ["receiver"]
+  }
+  
+  it("should allow sending mails easily") {
+    agent << agent.mail("Subject", "Message", "sender", "receiver")
+    agent.mailbox("receiver").size.should == 1
+    mail = agent.mailbox("receiver").read(0)
+    mail.subject.should == "Subject"
+    mail.body.should == "Message"
+  }
+
+  it("should allow sending mails to many receivers") {
+    agent << agent.mail("Subject", "Message", "sender", "receiver1", "receiver2")
+    agent.mailbox("receiver1").size.should == 1
+    agent.mailbox("receiver2").size.should == 1
+  }
+  
+  it("should allow sending carbon copies") {
+    mail = agent.mail("Subject", "Message", "sender", "receiver1")
+    mail.cc = ["cc@chefbe.net"]
+    mail.bcc = ["bcc@chefbe.net"]
+    agent << mail
+    agent.mailbox("receiver1").size.should == 1
+    agent.mailbox("cc@chefbe.net").size.should == 1
+    agent.mailbox("bcc@chefbe.net").size.should == 1
+  }
+  
+  # it("should really send mails if we force it") {
+  #   agent = ::Waw::Tools::MailAgent.new({:host => 'localhost', :port => 7654, :timeout => 1}, true)
+  #   agent << mail("Subject", "Message", "sender", "receiver1", "receiver2")
+  # }
+  
+  it("should support mail templates") {
+    agent.add_template(:waw_info, "Hi ${who}, and welcome in waw", "We've received your request ${id}", "info@waw.org")
+    mail = agent.to_mail(:waw_info, {:who => "guy", :id => 123})
+    mail.subject.should == "Hi guy, and welcome in waw"
+    mail.body.should == "We've received your request 123"
+    mail.from.should == "info@waw.org"
+  }
+  
+  it("should provide a great job when working with templates") {
+    agent.add_template(:waw_info, "Hi ${who}, and welcome in waw", "We've received your request ${id}", "info@waw.org")
+    agent.send_mail(:waw_info, {:who => "guy", :id => 123}, "blambeau@gmail.com")
+    mailbox = agent.mailbox("blambeau@gmail.com")
+    mailbox.size.should == 1
+    mailbox[0].subject.should == "Hi guy, and welcome in waw"
+    mailbox[0].body.should == "We've received your request 123"
+    mailbox[0].from.should == "info@waw.org"
+    mailbox[0].to.should == ["blambeau@gmail.com"]
+  }
+  
+  it("should provide a send_mail with signature 1") {
+    agent.send_mail agent.mail("Subject", "Message", "sender", "receiver1", "receiver2")
+    mail = agent.mailbox("receiver1")[0]
+    mail.subject.should == "Subject"
+    mail = agent.mailbox("receiver2")[0]
+    mail.subject.should == "Subject"
+  }
+  
+  it("should provide a send_mail with signature 2") {
+    agent.add_template(:waw_info, "${subject}", "${body}", "info@waw.org", "receiver1", "receiver2")
+    agent.send_mail(:waw_info, {:subject => "hello", :body => "world"})
+    mail = agent.mailbox("receiver1")[0]
+    mail.subject.should == "hello"
+    mail.body.should == "world"
+    mail = agent.mailbox("receiver2")[0]
+    mail.subject.should == "hello"
+    mail.body.should == "world"
+  }
+  
+  it("should provide a send_mail with signature 3") {
+    agent.add_template(:waw_info, "${subject}", "${body}", "info@waw.org")
+    agent.send_mail(:waw_info, {:subject => "hello", :body => "world"}, "receiver1", "receiver2")
+    mail = agent.mailbox("receiver1")[0]
+    mail.subject.should == "hello"
+    mail.body.should == "world"
+    mail = agent.mailbox("receiver2")[0]
+    mail.subject.should == "hello"
+    mail.body.should == "world"
+  }
+  
+  it("should provide a send_mail with signature 4") {
+    agent.add_template(:waw_info, "${subject}", "${body}", "info@waw.org")
+    agent.send_mail(:waw_info, {:subject => "hello", :body => "world"}, ["receiver1", "receiver2"])
+    mail = agent.mailbox("receiver1")[0]
+    mail.subject.should == "hello"
+    mail.body.should == "world"
+    mail = agent.mailbox("receiver2")[0]
+    mail.subject.should == "hello"
+    mail.body.should == "world"
+  }
+  
+end

data/test/spec/tools/mail/mail_spec.rb

@@ -0,0 +1,56 @@
+require 'waw'
+require 'waw/tools/mail'
+describe ::Waw::Tools::MailAgent::Mail do
+  
+  it "should correctly support encode/decode for testing purposes at least" do
+    mail = ::Waw::Tools::MailAgent::Mail.new
+    mail.from = "blambeau@gmail.com"
+    mail.to = ["blambeau@chefbe.net", "llambeau@chefbe.net"]
+    mail.cc = ["cc@chefbe.net"]
+    mail.bcc = ["bcc@chefbe.net"]
+    mail.subject = "This is a test mail"
+    mail.body = "Hello people"
+    
+    mail = ::Waw::Tools::MailAgent::Mail.decode(mail.encode)
+    mail.from.should == "blambeau@gmail.com"
+    mail.to.should == ["blambeau@chefbe.net", "llambeau@chefbe.net"]
+    mail.cc.should == ["cc@chefbe.net"]
+    mail.bcc.should == ["bcc@chefbe.net"]
+    mail.subject.should == "This is a test mail"
+    mail.content_type.should == "text/plain"
+    mail.charset.should == "UTF-8"
+    mail.body.should == "Hello people"
+  end
+  
+  it "should support encode/decode on long bodies" do
+    mail = ::Waw::Tools::MailAgent::Mail.new
+    body = <<-EOF
+<p>This is a complex framework</p>
+
+<p>But definitely fine!</p>
+EOF
+    mail.body = body
+    mail.content_type = 'text/html'
+
+    mail.content_type.should == "text/html"
+    mail.charset.should == "UTF-8"
+    mail.body.should == body
+  end
+  
+  it "should provide a short form for initialize" do
+    mail = ::Waw::Tools::MailAgent::Mail.new("The subject", "The message", "me", "you")
+    mail.subject.should == "The subject"
+    mail.body.should == "The message"
+    mail.from.should == "me"
+    mail.to.should == ["you"]
+  end
+  
+  it "should support multiple receivers in the short form for initialize" do
+    mail = ::Waw::Tools::MailAgent::Mail.new("The subject", "The message", "me", "you", "us")
+    mail.subject.should == "The subject"
+    mail.body.should == "The message"
+    mail.from.should == "me"
+    mail.to.should == ["you", "us"]
+  end
+  
+end

data/test/spec/tools/mail/mailbox_spec.rb

@@ -0,0 +1,57 @@
+require 'waw'
+require 'waw/tools/mail'
+describe Waw::Tools::MailAgent::Mailbox do
+  
+  # Returns a mail instance
+  def mail(subject)
+    mail = Waw::Tools::MailAgent::Mail.new
+    mail.subject = subject
+    mail
+  end
+  
+  def mailbox(who)
+    Waw::Tools::MailAgent::Mailbox.new(who)
+  end
+  
+  it "should allow pushing mails" do
+    mailbox = mailbox("blambeau@gmail.com")
+    mailbox << mail("This is the first mail")
+    mailbox << mail("This is the second mail")
+    mailbox.size.should == 2
+  end
+
+  it "should allow getting mails" do
+    mailbox = mailbox("blambeau@gmail.com")
+    mailbox << mail("This is the first mail")
+    mailbox << mail("This is the second mail")
+    mailbox[0].subject.should == "This is the first mail"
+    mailbox[1].subject.should == "This is the second mail"
+  end
+  
+  it "should allow reading mails" do
+    mailbox = mailbox("blambeau@gmail.com")
+    mailbox << mail("This is the first mail")
+    mailbox.is_read?(0).should be_false
+    (mail = mailbox.read(0)).should_not be_nil
+    mail.subject.should == "This is the first mail"
+    mailbox.is_read?(0).should be_true
+  end
+  
+  it "should allow clearing the mailbox" do
+    mailbox = mailbox("blambeau@gmail.com")
+    mailbox << mail("This is the first mail")
+    mailbox << mail("This is the second mail")
+    mailbox.size.should == 2
+    mailbox.clear
+    mailbox.size.should == 0
+  end
+  
+  it "should be robust to unexistant mails" do
+    mailbox = mailbox("blambeau@gmail.com")
+    mailbox[0].should be_nil
+    mailbox[-1].should be_nil
+    mailbox.is_read?(0).should be_nil
+    mailbox.read(0).should be_nil
+  end
+  
+end

data/test/spec/tools/mail/template_spec.rb

@@ -0,0 +1,47 @@
+require 'waw'
+require 'waw/tools/mail'
+
+describe ::Waw::Tools::MailAgent::Template do
+  
+  def template(*args)
+    ::Waw::Tools::MailAgent::Template.new(*args)
+  end
+  
+  it("should act as a mail for the construction") {
+    template = template("${subject}", "${body}", "from")
+    template.subject.should == "${subject}"
+    template.body.should == "${body}"
+    template.from.should == "from"
+  }
+
+  it("should detect wlang dialect from content-type") {
+    template = template("${subject}", "${body}", "from")
+    template.dialect.should == "wlang/active-string"
+    template.content_type = "text/html"
+    template.dialect.should == "wlang/xhtml"
+  }
+  
+  it("should support easy to_mail instantiation") {
+    template = template("Here is the: ${subject}", "Here is the: ${body}", "from", "receiver1", "receiver2")
+    mail = template.to_mail(:subject => "The subject", :body => "The body")
+
+    # the template has not changed
+    template.subject.should == "Here is the: ${subject}"
+    template.body.should == "Here is the: ${body}"
+    template.to.should == ["receiver1", "receiver2"]
+    
+    # the mail should be instantiated
+    mail.from.should == "from"
+    mail.subject.should == "Here is the: The subject"
+    mail.body.should == "Here is the: The body"
+    mail.to.should == ["receiver1", "receiver2"]
+  }
+  
+  it("should ensure than to_mail returns something really detached from the template") {
+    template = template("Here is the: ${subject}", "Here is the: ${body}", "from", "receiver1", "receiver2")
+    mail = template.to_mail(:subject => "The subject", :body => "The body")
+    mail.to.clear
+    template.to.should == ["receiver1", "receiver2"]
+  }
+  
+end

data/test/spec/validation/array_validation_spec.rb

@@ -0,0 +1,63 @@
+require 'waw'
+describe ::Waw::Validation::ArrayValidations do
+
+  it "should be correctly installed" do
+    Waw::Validation.array.should == Waw::Validation::ArrayValidations
+    Waw::Validation.array[Integer].should_not be_nil
+    Waw::Validation.array[Integer].is_a?(Waw::Validation::Validator).should be_true
+  end
+  
+  it "should be autorized in a signature" do
+    signature = Waw::Validation.signature {
+      validation :id, array[Integer], :bad_array
+    }
+  end
+  
+  it "should be correctly block or allow data" do
+    signature = Waw::Validation.signature {
+      validation :id, array[Integer], :bad_array
+    }
+    signature.allows?(:id => nil).should be_false
+    signature.allows?(:id => 1).should be_false
+    signature.allows?(:id => []).should be_true
+    signature.allows?(:id => [1, 2]).should be_true
+    signature.allows?(:id => ["1", "2"]).should be_true
+    signature.allows?(:id => ["1", "hello"]).should be_false
+    signature.allows?(:id => ["1", nil]).should be_false
+    signature.allows?(:id => ["1", ""]).should be_false
+
+    signature = Waw::Validation.signature {
+      validation :id, array[String], :bad_array
+    }
+    signature.allows?(:id => []).should be_true
+  end
+  
+  it "should get converted sub values" do
+    signature = Waw::Validation.signature {
+      validation :id, array[Integer], :bad_array
+    }
+    signature.first_converted(:id => [1]).should == [1]
+    signature.first_converted(:id => ["1"]).should == [1]
+    signature.first_converted(:id => ["1", "2"]).should == [1, 2]
+  end
+  
+  it "should allow complex validators" do
+    signature = Waw::Validation.signature {
+      validation :id, array[Integer | missing], :bad_array
+    }
+    signature.allows?(:id => nil).should be_false
+    signature.allows?(:id => ["1", "2"]).should be_true
+    signature.allows?(:id => ["1", nil]).should be_true
+    signature.allows?(:id => ["1", ""]).should be_true
+  end
+  
+  it "should remove missing values" do
+    signature = Waw::Validation.signature {
+      validation :id, array[Integer | missing], :bad_array
+    }
+    signature.first_converted(:id => ["1", nil]).should == [1]
+    signature.first_converted(:id => ["1", ""]).should == [1]
+    signature.first_converted(:id => ["1", "", nil, "12", "   "]).should == [1, 12]
+  end
+  
+end