test/example-apps.rb in spqr-0.2.4 vs test/example-apps.rb in spqr-0.3.0

@@ -1,5 +1,27 @@
+class QmfUserAndContext
+  include ::SPQR::Manageable
+
+  def QmfUserAndContext.find_by_id(oid)
+    @singleton ||= QmfUserAndContext.new
+    @singleton
+  end
+  
+  def QmfUserAndContext.find_all
+    @singleton ||= QmfUserAndContext.new
+    [@singleton]
+  end
+
+  expose :qmf_user_id do |args|
+    args.declare :uid, :sstr, :out
+  end
+
+  expose :qmf_context do |args|
+    args.declare :ctx, :uint64, :out
+  end
+end
+
 class QmfClicker
   include ::SPQR::Manageable
   
   def QmfClicker.find_by_id(oid)
     @singleton ||= QmfClicker.new
@@ -229,7 +251,94 @@
     args.declare :input, :list, :in
     args.declare :ls, :list, :out
   end
   
   qmf_class_name :QmfListArg
+  qmf_package_name :example
+end
+
+class DummyEvent
+  include ::SPQR::Raiseable
+  
+  qmf_class_name :DummyEvent
+  qmf_package_name :example
+  qmf_severity :notice
+end
+
+class QmfDummyEventer
+  include ::SPQR::Manageable 
+
+  def qmf_oid
+    1234
+  end
+
+  def spqr_object_id
+    1234
+  end
+ 
+  def QmfDummyEventer.find_by_id(oid)
+    @objs ||= [QmfDummyEventer.new]
+    @objs[0]
+  end
+  
+  def QmfDummyEventer.find_all
+    @objs ||= [QmfDummyEventer.new]
+    @objs
+  end
+  
+  def party_on
+    DummyEvent.new.bang!
+  end
+
+  expose :party_on do |args|
+  end
+  
+  qmf_class_name :QmfDummyEventer
+  qmf_package_name :example
+end
+
+
+class ArgEvent
+  include ::SPQR::Raiseable
+  
+  arg :arg, :map, "A map from the name of the party_on method to the first count even numbers"
+  
+  qmf_class_name :ArgEvent
+  qmf_package_name :example
+  qmf_severity :notice
+end
+
+class QmfArgEventer
+  include ::SPQR::Manageable 
+
+  def qmf_oid
+    1234
+  end
+
+  def spqr_object_id
+    1234
+  end
+ 
+  def QmfArgEventer.find_by_id(oid)
+    @objs ||= [QmfArgEventer.new]
+    @objs[0]
+  end
+  
+  def QmfArgEventer.find_all
+    @objs ||= [QmfArgEventer.new]
+    @objs
+  end
+  
+  def party_on_one(name, count)
+    ls = (1..count).to_a.map {|x| x*2}
+#    ArgEvent.new({name=>ls}).bang!
+    ArgEvent.new({name=>count}).bang!
+  end
+
+  expose :party_on_one do |args|
+    args.declare :name, :sstr, :in
+    args.declare :count, :uint64, :in
+  end
+  
+  qmf_class_name :QmfArgEventer
   qmf_package_name :example
 end