Changeset 193

Timestamp:

11/20/04 01:51:04 (4 years ago)

Author:

ged

Message:

-- Added tests for event reflection

Files:

• branches/simplest-thing/tests/area.tests.rb (modified) (3 diffs)

branches/simplest-thing/tests/area.tests.rb

@@ -19 +19 @@
 
 require 'fm/area'
+require 'fm/event'
+require 'fm/entity'
 
 ### Test case for the FaerieMUD::Area class and associated classes/modules.
 class FaerieMUD::AreaTestCase < FaerieMUD::TestCase
+
+    class PingEvent < FaerieMUD::Event; end
+    class PingVerb < FaerieMUD::Verb; end
+
+    class TestLocus < FaerieMUD::Locus
+        def initialize( args={} )
+            super
+            @pingEchoCount = 0
+        end
+
+        attr_reader :pingEchoCount
+
+        def ping
+            ev = PingEvent::new(
+                :instigator => self,
+                :origin => self,
+                :verb => PingVerb::instance
+                )
+            self.disperseEvents( ev )
+        end
+
+        def handlePingEvent( ev )
+            @pingEchoCount += 1
+        end
+    end
+
 
     #################################################################
@@ -29 +57 @@
     ### Instance test
     def test_00_Instance
+        printTestHeader "Area: Instance"
         rval = nil
 
@@ -41 +70 @@
         }
     end
-    
+
+
+    ### Reflect dispersed events back into the area's contents
+    def test_10_reflect_events
+        printTestHeader "Area: Reflect dispersed events"
+
+        tl = TestLocus::new
+        area = FaerieMUD::Area::new
+        area << tl
+        
+        # Ping -- should get an echo back
+        assert_nothing_raised { tl.ping }
+        assert_equal 1, tl.pingEchoCount
+
+        assert_nothing_raised { tl.ping }
+        assert_equal 2, tl.pingEchoCount
+
+    end
 end