rtsp 0.0.1.alpha → 0.1.0

data/spec/rtsp/client_spec.rb

@@ -1,38 +1,313 @@
-require File.dirname(__FILE__) + '/../spec_helper'
+require 'sdp'
+require_relative '../spec_helper'
 require 'rtsp/client'
+require 'support/fake_rtsp_server'
 
 describe RTSP::Client do
-  context "parses the URI on init" do
-    it "with scheme, IP, port, and path" do
-      @rtsp_client = RTSP::Client.new "rtsp://64.202.98.91:554/sa.sdp"
-      @rtsp_client.server_uri.scheme.should == "rtsp"
-      @rtsp_client.server_uri.host.should == "64.202.98.91"
-      @rtsp_client.server_uri.port.should == 554
-      @rtsp_client.server_uri.path.should == "/sa.sdp"
+  def setup_client_at(url)
+    fake_rtsp_server = FakeRTSPServer.new
+    mock_logger = double 'MockLogger', :send => nil
+
+    client = RTSP::Client.new(url) do |connection|
+      connection.socket = fake_rtsp_server
+    end
+
+    RTSP::Client.reset_config!
+    RTSP::Client.configure { |config| config.log = false }
+    client.logger = mock_logger
+
+    client
+  end
+
+  describe "#initialize" do
+    before :each do
+      mock_socket = double 'MockSocket'
+      @client = RTSP::Client.new("rtsp://localhost") do |connection|
+        connection.socket = mock_socket
+      end
+    end
+
+    it "sets @cseq to 1" do
+      @client.instance_variable_get(:@cseq).should == 1
+    end
+
+    it "sets @session_state to :init" do
+      @client.instance_variable_get(:@session_state).should == :init
+    end
+
+    it "sets @server_uri to be a URI containing the first init param + 554" do
+      @client.instance_variable_get(:@server_uri).should be_a(URI)
+      @client.instance_variable_get(:@server_uri).to_s.should ==
+          "rtsp://localhost:554"
+    end
+  end
+
+  describe ".configure" do
+    around do |example|
+      RTSP::Client.reset_config!
+      example.run
+      RTSP::Client.reset_config!
+      RTSP::Client.log = false
+    end
+
+    before :each do
+      mock_socket = double 'MockSocket'
+
+      @client = RTSP::Client.new("rtsp://localhost") do |connection|
+        connection.socket = mock_socket
+      end
+    end
+
+    describe "log" do
+      it "should default to true" do
+        RTSP::Client.log?.should be_true
+      end
+
+      it "should set whether to log RTSP requests/responses" do
+        RTSP::Client.configure { |config| config.log = false }
+        RTSP::Client.log?.should be_false
+      end
+    end
+
+    describe "logger" do
+      it "should set the logger to use" do
+        MyLogger = Class.new
+        RTSP::Client.configure { |config| config.logger = MyLogger }
+        RTSP::Client.logger.should == MyLogger
+      end
+
+      it "should default to Logger writing to STDOUT" do
+        RTSP::Client.logger.should be_a(Logger)
+      end
+    end
+
+    describe "log_level" do
+      it "should default to :debug" do
+        RTSP::Client.log_level.should == :debug
+      end
+
+      it "should set the log level to use" do
+        RTSP::Client.configure { |config| config.log_level = :info }
+        RTSP::Client.log_level.should == :info
+      end
+    end
+  end
+
+  it "handles empty non-existent CSeq header" do
+    pending
+  end
+
+  context "#server_url" do
+    before :each do
+      @client = setup_client_at "rtsp://localhost"
+    end
+
+    it "allows for changing the server URL on the fly" do
+      @client.server_uri.to_s.should == "rtsp://localhost:554"
+      @client.server_url = "rtsp://localhost:8080"
+      @client.server_uri.to_s.should == "rtsp://localhost:8080"
+    end
+
+    it "raises when passing in something other than a String" do
+      @client.server_uri.to_s.should == "rtsp://localhost:554"
+      lambda { @client.server_url = [] }.should raise_error
+    end
+  end
+
+  describe "#options" do
+    before :each do
+      @client = setup_client_at "rtsp://localhost"
+    end
+
+    it "extracts the server's supported methods" do
+      @client.options
+      @client.supported_methods.should ==
+          [:describe, :setup, :teardown, :play, :pause]
+    end
+
+    it "returns a Response" do
+      response = @client.options
+      response.is_a?(RTSP::Response).should be_true
+    end
+  end
+
+  describe "#describe" do
+    before do
+      @client = setup_client_at "rtsp://localhost"
+      @response = @client.describe
+    end
+
+    it "extracts the aggregate control track" do
+      @client.aggregate_control_track.should == "rtsp://64.202.98.91:554/sa.sdp/"
+    end
+
+    it "extracts the media control tracks" do
+      @client.media_control_tracks.should == ["rtsp://64.202.98.91:554/sa.sdp/trackID=1"]
+    end
+
+    it "extracts the SDP object" do
+      @client.instance_variable_get(:@session_description).should ==
+          @response.body
+    end
+
+    it "extracts the Content-Base header" do
+      @client.instance_variable_get(:@content_base).should ==
+          URI.parse("rtsp://64.202.98.91:554/sa.sdp/")
     end
 
-    it "with scheme, IP, path; port defaults to 554" do
-      @rtsp_client = RTSP::Client.new "rtsp://64.202.98.91/sa.sdp"
-      @rtsp_client.server_uri.scheme.should == "rtsp"
-      @rtsp_client.server_uri.host.should == "64.202.98.91"
-      @rtsp_client.server_uri.port.should == 554
-      @rtsp_client.server_uri.path.should == "/sa.sdp"
+    it "returns a Response" do
+      @response.is_a?(RTSP::Response).should be_true
+    end
+  end
+
+  describe "#announce" do
+    it "returns a Response" do
+      client = setup_client_at "rtsp://localhost"
+      sdp = SDP::Description.new
+      client.setup("rtsp://localhost/another_track")
+      response = client.announce("rtsp://localhost/another_track", sdp)
+      response.is_a?(RTSP::Response).should be_true
+    end
+  end
+
+  describe "#setup" do
+    before :each do
+      @client = setup_client_at "rtsp://localhost"
+    end
+
+    it "extracts the session number" do
+      @client.session.should be_zero
+      @client.setup("rtsp://localhost/some_track")
+      @client.session.should == 1234567890
+    end
+
+    it "changes the session_state to :ready" do
+      @client.setup("rtsp://localhost/some_track")
+      @client.session_state.should == :ready
+    end
+
+    it "extracts the transport header info" do
+      @client.instance_variable_get(:@transport).should be_nil
+      @client.setup("rtsp://localhost/some_track")
+      @client.instance_variable_get(:@transport).should_not be_nil
+    end
+
+    it "returns a Response" do
+      response = @client.setup("rtsp://localhost/some_track")
+      response.is_a?(RTSP::Response).should be_true
+    end
+  end
+
+  describe "#play" do
+    before :each do
+      @client = setup_client_at "rtsp://localhost"
+    end
+
+    it "changes the session_state to :playing" do
+      @client.setup("rtsp://localhost/some_track")
+      @client.play("rtsp://localhost/some_track")
+      @client.session_state.should == :playing
+    end
+
+    it "returns a Response" do
+      @client.setup("rtsp://localhost/some_track")
+      response = @client.play("rtsp://localhost/some_track")
+      response.is_a?(RTSP::Response).should be_true
+    end
+  end
+
+  describe "#pause" do
+    before :each do
+      @client = setup_client_at "rtsp://localhost"
+      @client.setup("rtsp://localhost/some_track")
+    end
+
+    it "changes the session_state from :playing to :ready" do
+      @client.play("rtsp://localhost/some_track")
+      @client.pause("rtsp://localhost/some_track")
+      @client.session_state.should == :ready
+    end
+
+    it "changes the session_state from :recording to :ready" do
+      @client.record("rtsp://localhost/some_track")
+      @client.pause("rtsp://localhost/some_track")
+      @client.session_state.should == :ready
+    end
+
+    it "returns a Response" do
+      response = @client.pause("rtsp://localhost/some_track")
+      response.is_a?(RTSP::Response).should be_true
+    end
+  end
+
+  describe "#teardown" do
+    before :each do
+      @client = setup_client_at "rtsp://localhost"
+      @client.setup("rtsp://localhost/some_track")
+    end
+
+    it "changes the session_state to :init" do
+      @client.session_state.should_not == :init
+      @client.teardown("rtsp://localhost/some_track")
+      @client.session_state.should == :init
+    end
+
+    it "changes the session back to 0" do
+      @client.session.should_not be_zero
+      @client.teardown("rtsp://localhost/some_track")
+      @client.session.should be_zero
+    end
+    
+    it "returns a Response" do
+      response = @client.teardown("rtsp://localhost/some_track")
+      response.is_a?(RTSP::Response).should be_true
+    end
+  end
+
+  describe "#get_parameter" do
+    before :each do
+      @client = setup_client_at "rtsp://localhost"
     end
 
-    it "with IP, path; port defaults to 554; scheme defaults to 'rtsp'" do
-      @rtsp_client = RTSP::Client.new "64.202.98.91/sa.sdp"
-      @rtsp_client.server_uri.scheme.should == "rtsp"
-      @rtsp_client.server_uri.host.should == "64.202.98.91"
-      @rtsp_client.server_uri.port.should == 554
-      @rtsp_client.server_uri.path.should == "/sa.sdp"
+    it "returns a Response" do
+      response = @client.get_parameter("rtsp://localhost/some_track", "ping!")
+      response.is_a?(RTSP::Response).should be_true
     end
+  end
+
+  describe "#set_parameter" do
+    before :each do
+      @client = setup_client_at "rtsp://localhost"
+    end
+
+    it "returns a Response" do
+      response = @client.set_parameter("rtsp://localhost/some_track", "ping!")
+      response.is_a?(RTSP::Response).should be_true
+    end
+  end
+
+  describe "#record" do
+    before :each do
+      @client = setup_client_at "rtsp://localhost"
+      @client.setup("rtsp://localhost/some_track")
+    end
+
+    it "returns a Response" do
+      response = @client.record("rtsp://localhost/some_track")
+      response.is_a?(RTSP::Response).should be_true
+    end
+
+    it "changes the session_state to :recording" do
+      @client.session_state.should == :ready
+      @client.record("rtsp://localhost/some_track")
+      @client.session_state.should == :recording
+    end
+  end
 
-    it "with scheme, IP, port" do
-      @rtsp_client = RTSP::Client.new "rtsp://64.202.98.91:554"
-      @rtsp_client.server_uri.scheme.should == "rtsp"
-      @rtsp_client.server_uri.host.should == "64.202.98.91"
-      @rtsp_client.server_uri.port.should == 554
-      @rtsp_client.server_uri.path.should == ""
+  describe "#send_message" do
+    it "raises if the send takes longer than the timeout" do
+      pending "until I figure out how to test the time out raises"
+      @client = setup_client_at "rtsp://localhost"
     end
   end
-end
+end

data/spec/rtsp/helpers_spec.rb

@@ -0,0 +1,53 @@
+require_relative '../spec_helper'
+require 'rtsp/helpers'
+
+class HelperTest
+  include RTSP::Helpers
+end
+
+describe RTSP::Helpers do
+  describe "#build_resource_uri_from" do
+    before do
+      @my_object = HelperTest.new
+    end
+
+    context "parses the resource URL to a URI" do
+      it "with scheme, IP, path; port defaults to 554" do
+        uri = @my_object.build_resource_uri_from "rtsp://64.202.98.91/sa.sdp"
+        uri.scheme.should == "rtsp"
+        uri.host.should == "64.202.98.91"
+        uri.port.should == 554
+        uri.path.should == "/sa.sdp"
+      end
+
+      it "with IP, path; port defaults to 554; scheme defaults to 'rtsp'" do
+        uri = @my_object.build_resource_uri_from "64.202.98.91/sa.sdp"
+        uri.scheme.should == "rtsp"
+        uri.host.should == "64.202.98.91"
+        uri.port.should == 554
+        uri.path.should == "/sa.sdp"
+      end
+
+      it "with scheme, IP, port" do
+        uri = @my_object.build_resource_uri_from "rtsp://64.202.98.91"
+        uri.scheme.should == "rtsp"
+        uri.host.should == "64.202.98.91"
+        uri.port.should == 554
+        uri.path.should == ""
+        uri.to_s.should == "rtsp://64.202.98.91:554"
+      end
+
+      it "handles passing in a URI" do
+        uri = @my_object.build_resource_uri_from "rtsp://64.202.98.91"
+        lambda { @my_object.build_resource_uri_from uri
+          }.should raise_error
+      end
+
+      it "raises if not given a String" do
+        lambda do
+          @my_object.build_resource_uri_from URI.parse "rtsp://64.202.98.91"
+        end.should raise_exception RTSP::Error
+      end
+    end
+  end
+end

data/spec/rtsp/message_spec.rb

@@ -0,0 +1,420 @@
+require 'sdp'
+require_relative '../spec_helper'
+require 'rtsp/message'
+
+describe "RTSP::Message" do
+  before do
+    @stream = "rtsp://1.2.3.4/stream1"
+  end
+
+  it "raises if the header type isn't a Symbol" do
+    message = RTSP::Message.options(@stream)
+    lambda { message.header "hi", "everyone"
+      }.should raise_error RTSP::Error
+  end
+
+  it "adds a User-Agent header to every method" do
+    RTSP::Message.instance_variable_get(:@message_types).each do |method|
+      message = RTSP::Message.send(method, @stream)
+      message.to_s.should include "User-Agent: RubyRTSP/"
+    end
+  end
+
+  context "builds an OPTIONS string" do
+    it "with default sequence number" do
+      message = RTSP::Message.options(@stream)
+      message.to_s.should == "OPTIONS rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\nCSeq: 1\r\nUser-Agent: RubyRTSP/0.1.0 (Ruby #{RUBY_VERSION}-p#{RUBY_PATCHLEVEL})\r\n\r\n"
+    end
+
+    it "with new sequence number" do
+      message = RTSP::Message.options(@stream)
+      message.header :cseq, 2345
+      message.to_s.should == "OPTIONS rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\nCSeq: 2345\r\nUser-Agent: RubyRTSP/0.1.0 (Ruby #{RUBY_VERSION}-p#{RUBY_PATCHLEVEL})\r\n\r\n"
+    end
+  end
+
+  context "builds a DESCRIBE string" do
+    it "with default sequence and accept values" do
+      message = RTSP::Message.describe(@stream)
+      message.to_s.should match /^DESCRIBE rtsp:/
+      message.to_s.should include "DESCRIBE rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should include "Accept: application/sdp\r\n"
+      message.to_s.should match /\r\n\r\n$/
+    end
+
+    it "with default sequence value" do
+      message = RTSP::Message.describe(@stream).with_headers({
+        accept: 'application/sdp, application/rtsl' })
+      message.to_s.should match /^DESCRIBE rtsp:/
+      message.to_s.should include "DESCRIBE rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should include "Accept: application/sdp, application/rtsl\r\n"
+      message.to_s.should match /\r\n\r\n$/
+    end
+
+    it "with new sequence and accept values" do
+      message = RTSP::Message.describe(@stream).with_headers({
+        accept: 'application/sdp, application/rtsl',
+        cseq:  2345 })
+
+      message.to_s.should match /^DESCRIBE rtsp:/
+      message.to_s.should include "DESCRIBE rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 2345\r\n"
+      message.to_s.should include "Accept: application/sdp, application/rtsl\r\n"
+      message.to_s.should match /\r\n\r\n$/
+    end
+  end
+
+  context "builds a ANNOUNCE string" do
+    it "with default sequence, content type, but no body" do
+      message = RTSP::Message.announce(@stream).with_headers({ session: 123456789 })
+
+      message.to_s.should match /^ANNOUNCE rtsp:/
+      message.to_s.should include "ANNOUNCE rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should include "Session: 123456789\r\n"
+      message.to_s.should include "Content-Type: application/sdp\r\n"
+      message.to_s.should match /\r\n\r\n$/
+    end
+
+    it "with passed-in session and content type but no body" do
+      message = RTSP::Message.announce(@stream).with_headers({
+        session: 123456789,
+        content_type: 'application/sdp, application/rtsl'})
+
+      message.to_s.should match /^ANNOUNCE rtsp:/
+      message.to_s.should include "ANNOUNCE rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should include "Session: 123456789\r\n"
+      message.to_s.should include "Content-Type: application/sdp, application/rtsl\r\n"
+      message.to_s.should match /\r\n\r\n$/
+    end
+
+    it "with passed-in sequence, session, content-type, but no body " do
+      message = RTSP::Message.announce(@stream).with_headers({
+        session: 123456789,
+        content_type: 'application/sdp, application/rtsl',
+        cseq: 2345})
+
+      message.to_s.should match /^ANNOUNCE rtsp:/
+      message.to_s.should include "ANNOUNCE rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 2345\r\n"
+      message.to_s.should include "Session: 123456789\r\n"
+      message.to_s.should include "Content-Type: application/sdp, application/rtsl\r\n"
+      message.to_s.should match /\r\n\r\n$/
+    end
+
+    it "with passed-in sequence, session, content-type, and SDP body" do
+      sdp = SDP::Description.new
+      sdp.protocol_version = 1
+      sdp.username = 'bobo'
+
+      message = RTSP::Message.announce(@stream).with_headers({
+        session: 123456789,
+        content_type: 'application/sdp',
+        cseq: 2345 })
+      message.body = sdp.to_s
+
+      message.to_s.should match /^ANNOUNCE rtsp/
+      message.to_s.should include "ANNOUNCE rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 2345\r\n"
+      message.to_s.should include "Session: 123456789\r\n"
+      message.to_s.should include "Content-Type: application/sdp\r\n"
+      message.to_s.should include "Content-Length: 29\r\n"
+      message.to_s.should match /\r\n\r\nv=1\r\no=bobo     \r\ns=\r\nt= \r\n\r\n$/
+    end
+  end
+
+  context "builds a SETUP string" do
+    it "with default sequence, client_port, and routing values" do
+      message = RTSP::Message.setup(@stream)
+
+      message.to_s.should match /^SETUP rtsp/
+      message.to_s.should include "SETUP rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should match /\r\n\r\n$/
+    end
+
+    it "with default sequence, transport, and client_port values" do
+      message = RTSP::Message.setup(@stream).with_headers({
+        transport: ["RTP/AVP", "multicast", { :client_port => "9000-9001" }] })
+
+      message.to_s.should match /^SETUP rtsp/
+      message.to_s.should include "SETUP rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should include "Transport: RTP/AVP;multicast;client_port=9000-9001\r\n"
+      message.to_s.should match /\r\n\r\n$/
+    end
+
+    it "with default transport, client_port, and routing values" do
+      message = RTSP::Message.setup(@stream).with_headers({
+        transport: ["RTP/AVP", "multicast", { :client_port => "9000-9001" }],
+        cseq: 2345 })
+
+      message.to_s.should match /^SETUP rtsp/
+      message.to_s.should include "SETUP rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 2345\r\n"
+      message.to_s.should include "Transport: RTP/AVP;multicast;client_port=9000-9001\r\n"
+      message.to_s.should match /\r\n\r\n$/
+    end
+  end
+
+  context "builds a PLAY string" do
+    it "with default sequence and range values" do
+      message = RTSP::Message.play(@stream).with_headers({
+        session: 123456789 })
+
+      message.to_s.should match /^PLAY rtsp/
+      message.to_s.should include "PLAY rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should include "Session: 123456789\r\n"
+      message.to_s.should include "Range: npt=0.000-\r\n"
+      message.to_s.should match /\r\n\r\n/
+    end
+
+    it "with default sequence value" do
+      message = RTSP::Message.play(@stream).with_headers({
+        session: 123456789,
+        range: { :npt => "0.000-1.234" } })
+
+      message.to_s.should match /^PLAY rtsp/
+      message.to_s.should include "PLAY rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should include "Session: 123456789\r\n"
+      message.to_s.should include "Range: npt=0.000-1.234\r\n"
+      message.to_s.should match /\r\n\r\n/
+    end
+  end
+
+  context "builds a PAUSE string" do
+    it "with required Request values" do
+      message = RTSP::Message.pause(@stream)
+
+      message.to_s.should match /^PAUSE rtsp/
+      message.to_s.should include "PAUSE rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should match /\r\n\r\n/
+    end
+
+    it "with session and range headers" do
+      message = RTSP::Message.pause(@stream).with_headers({
+        session: 123456789,
+        range: { :npt => "0.000" } })
+
+      message.to_s.should match /^PAUSE rtsp/
+      message.to_s.should include "PAUSE rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should include "Session: 123456789\r\n"
+      message.to_s.should include "Range: npt=0.000\r\n"
+      message.to_s.should match /\r\n\r\n/
+    end
+  end
+
+  context "builds a TEARDOWN string" do
+    it "with required Request values" do
+      message = RTSP::Message.teardown(@stream)
+
+      message.to_s.should match /^TEARDOWN rtsp/
+      message.to_s.should include "TEARDOWN rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should match /\r\n\r\n/
+    end
+
+    it "with session and range headers" do
+      message = RTSP::Message.teardown(@stream).with_headers({
+        session: 123456789 })
+
+      message.to_s.should match /^TEARDOWN rtsp/
+      message.to_s.should include "TEARDOWN rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should include "Session: 123456789\r\n"
+      message.to_s.should match /\r\n\r\n/
+    end
+  end
+
+  context "builds a GET_PARAMETER string" do
+    it "with required Request values" do
+      message = RTSP::Message.get_parameter(@stream)
+
+      message.to_s.should match /^GET_PARAMETER rtsp/
+      message.to_s.should include "GET_PARAMETER rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should match /\r\n\r\n/
+    end
+
+    it "with cseq, content type, session headers, and text body" do
+      the_body = "packets_received\r\njitter\r\n"
+
+      message = RTSP::Message.get_parameter(@stream).with_headers({
+        cseq: 431,
+        content_type: 'text/parameters',
+        session: 123456789 })
+
+      message.body = the_body
+
+      message.to_s.should match /^GET_PARAMETER rtsp/
+      message.to_s.should include "GET_PARAMETER rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 431\r\n"
+      message.to_s.should include "Session: 123456789\r\n"
+      message.to_s.should include "Content-Type: text/parameters\r\n"
+      message.to_s.should include "Content-Length: #{the_body.length}\r\n"
+      message.to_s.should include the_body
+      message.to_s.should match /\r\n\r\n/
+    end
+  end
+
+  context "builds a SET_PARAMETER string" do
+    it "with required Request values" do
+      message = RTSP::Message.set_parameter(@stream)
+
+      message.to_s.should match /^SET_PARAMETER rtsp/
+      message.to_s.should include "SET_PARAMETER rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should match /\r\n\r\n/
+    end
+
+    it "with cseq, content type, session headers, and text body" do
+      the_body = "barparam: barstuff\r\n"
+
+      message = RTSP::Message.set_parameter(@stream).with_headers({
+        cseq: 431,
+        content_type: 'text/parameters',
+        session: 123456789 })
+      message.body = the_body
+
+      message.to_s.should match /^SET_PARAMETER rtsp/
+      message.to_s.should include "SET_PARAMETER rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 431\r\n"
+      message.to_s.should include "Session: 123456789\r\n"
+      message.to_s.should include "Content-Type: text/parameters\r\n"
+      message.to_s.should include "Content-Length: #{the_body.length}\r\n"
+      message.to_s.should include the_body
+      message.to_s.should match /\r\n\r\n/
+    end
+  end
+
+  context "builds a REDIRECT string" do
+    it "with required Request values" do
+      message = RTSP::Message.redirect(@stream)
+
+      message.to_s.should match /^REDIRECT rtsp/
+      message.to_s.should include "REDIRECT rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should match /\r\n\r\n/
+    end
+
+    it "with cseq, location, and range headers" do
+      message = RTSP::Message.redirect(@stream).with_headers({
+        cseq: 732,
+        location: "rtsp://bigserver.com:8001",
+        range: { :clock => "19960213T143205Z-" } })
+
+      message.to_s.should match /^REDIRECT rtsp/
+      message.to_s.should include "REDIRECT rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 732\r\n"
+      message.to_s.should include "Location: rtsp://bigserver.com:8001\r\n"
+      message.to_s.should include "Range: clock=19960213T143205Z-\r\n"
+      message.to_s.should match /\r\n\r\n/
+    end
+  end
+
+  context "builds a RECORD string" do
+    it "with required Request values" do
+      message = RTSP::Message.record(@stream)
+
+      message.to_s.should match /^RECORD rtsp/
+      message.to_s.should include "RECORD rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 1\r\n"
+      message.to_s.should match /\r\n\r\n/
+    end
+
+    it "with cseq, session, and conference headers" do
+      message = RTSP::Message.record(@stream).with_headers({
+        cseq: 954,
+        session: 12345678,
+        conference: "128.16.64.19/32492374" })
+
+      message.to_s.should match /^RECORD rtsp/
+      message.to_s.should include "RECORD rtsp://1.2.3.4:554/stream1 RTSP/1.0\r\n"
+      message.to_s.should include "CSeq: 954\r\n"
+      message.to_s.should include "Session: 12345678\r\n"
+      message.to_s.should include "Conference: 128.16.64.19/32492374\r\n"
+      message.to_s.should match /\r\n\r\n/
+    end
+  end
+
+  context "#to_s turns a Hash into an String of header strings" do
+    it "single header, non-hyphenated name, hash value" do
+      message = RTSP::Message.play(@stream).with_headers({
+          range: { npt: "0.000-" }
+      })
+
+      string = message.to_s
+      string.is_a?(String).should be_true
+      string.should include "Range: npt=0.000-"
+    end
+
+    it "single header, hyphenated, non-hash value" do
+      message = RTSP::Message.play(@stream).with_headers({
+          :if_modified_since => "Sat, 29 Oct 1994 19:43:31 GMT"
+      })
+
+      string = message.to_s
+      string.is_a?(String).should be_true
+      string.should include "If-Modified-Since: Sat, 29 Oct 1994 19:43:31 GMT"
+    end
+
+    it "two headers, mixed hyphenated, array & hash values" do
+      message = RTSP::Message.redirect(@stream).with_headers({
+          :cache_control => ["no-cache", { :max_age => 12345 }],
+          :content_type => ['application/sdp', 'application/x-rtsp-mh']
+      })
+
+      string = message.to_s
+      string.is_a?(String).should be_true
+      string.should include "Cache-Control: no-cache;max_age=12345"
+      string.should include "Content-Type: application/sdp, application/x-rtsp-mh"
+    end
+  end
+
+  describe "#with_headers" do
+    it "returns an RTSP::Message" do
+      message = RTSP::Message.options(@stream)
+      result = message.with_headers({ test: "test" })
+      result.class.should == RTSP::Message
+    end
+  end
+
+  describe "#with_body" do
+    it "adds the passed-in text to the body of the message" do
+      new_body = "1234567890"
+      message = RTSP::Message.record("rtsp://localhost/track").with_body(new_body)
+      message.to_s.should match /\r\n\r\n#{new_body}$/
+    end
+
+    it "adds the Content-Length header to reflect the body" do
+      new_body = "1234567890"
+      message = RTSP::Message.record("rtsp://localhost/track").with_body(new_body)
+      message.to_s.should match /Content-Length: #{new_body.size}\r\n/
+    end
+  end
+
+  describe "#respond_to?" do
+    it "returns true to each method in the list of supported method types" do
+      RTSP::Message.instance_variable_get(:@message_types).each do |m|
+        RTSP::Message.respond_to?(m).should be_true
+      end
+    end
+
+    it "returns false to a method that's not in the list of supported methods" do
+      RTSP::Message.respond_to?(:meow).should be_false
+    end
+  end
+
+  describe "#method_missing" do
+    it "returns " do
+      lambda { RTSP::Message.meow }.should raise_error NoMethodError
+    end
+  end
+end