em-riak 0.2.0 → 0.2.5

data/lib/em-riak/configurations.rb

@@ -1,5 +1,5 @@
 METAMAPPER={:sibling=>{"Accept"=>"multipart/mixed"}}
-SEARCH_SUPPORT=[:secondary_index,:full_text,:map_reduce,:key_filters]
+SEARCH_SUPPORT=[:secondary_index,:full_text,:map_reduce]
 RETRY_TIMES=3
 EMMAX=2000
 EM_REQUEST_TIMEOUT=50

data/lib/em-riak/grapher.rb

@@ -1,58 +1,58 @@
 module EmRiak
-	module Grapher
-		extend self
+    module Grapher
+        extend self
 
-		class LinkWalk
-			def add_link(key,*opts)
-				data={}
-				data[:head], data[:query] = EmRiak.handle_options("add_link",opts)
-				data[:query]= data[:query] && data[:query].length>0 ? data[:query]+"&returnbody=true" : "?returnbody=true"
-				
-			  	url="/buckets/#{EmRiak.bucket}/keys/#{key}"
-			  		  	
-			  	response=open("#{RIAKHOST[rand(RIAKHOST.count)]}/buckets/#{EmRiak.bucket}/keys/#{key}?returnbody=true")
-			  	body,links = rehandle_link_and_params(response)
-			  	
-			  	data[:head]['Link'].each{|link| links=links.gsub(link+", ","") }
-				data[:head]['Link']=data[:head]['Link'].join(", ")+", "+links if data[:head]['Link'].count>0
-			  	data[:body]=body
+        class LinkWalk
+            def add_link(key,*opts)
+                data={}
+                data[:head], data[:query] = EmRiak.handle_options("add_link",opts)
+                data[:query]= data[:query] && data[:query].length>0 ? data[:query]+"&returnbody=true" : "?returnbody=true"
+                
+                url="/buckets/#{EmRiak.bucket}/keys/#{key}"
+                        
+                response=open("#{RIAKHOST[rand(RIAKHOST.count)]}/buckets/#{EmRiak.bucket}/keys/#{key}?returnbody=true")
+                body,links = rehandle_link_and_params(response)
+                
+                data[:head]['Link'].each{|link| links=links.gsub(link+", ","") }
+                data[:head]['Link']=data[:head]['Link'].join(", ")+", "+links if data[:head]['Link'].count>0
+                data[:body]=body
 
-			  	EmRiak.http("put",key,url,data)
-			end
+                EmRiak.http("put",key,url,data)
+            end
 
-			def remove_link(key,*opts)
-				data={}
-				data[:head], data[:query] = EmRiak.handle_options("add_link",opts)
-				data[:query]= data[:query] && data[:query].length>0 ? data[:query]+"&returnbody=true" : "?returnbody=true"
-				
-			  	url="/buckets/#{EmRiak.bucket}/keys/#{key}"
+            def remove_link(key,*opts)
+                data={}
+                data[:head], data[:query] = EmRiak.handle_options("add_link",opts)
+                data[:query]= data[:query] && data[:query].length>0 ? data[:query]+"&returnbody=true" : "?returnbody=true"
+                
+                url="/buckets/#{EmRiak.bucket}/keys/#{key}"
 
-				response=open("#{RIAKHOST[rand(RIAKHOST.count)]}/buckets/#{EmRiak.bucket}/keys/#{key}?returnbody=true")
-			  	body,links = rehandle_link_and_params(response)	  	
-			  	
+                response=open("#{RIAKHOST[rand(RIAKHOST.count)]}/buckets/#{EmRiak.bucket}/keys/#{key}?returnbody=true")
+                body,links = rehandle_link_and_params(response)     
+                
 
-			  	data[:body]=body
+                data[:body]=body
 
-			  	data[:head]['Link'].each{|link| links=links.gsub(link+", ","") }
-			  	data[:head]['Link']=links
-			  	EmRiak.http("put",key,url,data)
-			end
+                data[:head]['Link'].each{|link| links=links.gsub(link+", ","") }
+                data[:head]['Link']=links
+                EmRiak.http("put",key,url,data)
+            end
 
-			private
-			def rehandle_link_and_params(response,body={},links=[])
-				response.read.split("&").each{|params|
-			  		key=params.split("=")[0]
-			  		value=params.split("=")[1]
-			  		body[key.to_sym]=value
-			  	}
-			  	links=response.meta["link"]#.split(",")
-			  	#.each{|link|
-			  		#key=link.split(";")[0].split("/").last.gsub(">","")
-			  		#tag=link.split(";")[1].split("").gsub("\"","").gsub("\"","").gsub(" ","")
-			  		#links << {:target=>"key",:tag=>tag}
-			  	#}
-			  	[body,links]
-			end
-		end
-	end
+            private
+            def rehandle_link_and_params(response,body={},links=[])
+                response.read.split("&").each{|params|
+                    key=params.split("=")[0]
+                    value=params.split("=")[1]
+                    body[key.to_sym]=value
+                }
+                links=response.meta["link"]#.split(",")
+                #.each{|link|
+                    #key=link.split(";")[0].split("/").last.gsub(">","")
+                    #tag=link.split(";")[1].split("").gsub("\"","").gsub("\"","").gsub(" ","")
+                    #links << {:target=>"key",:tag=>tag}
+                #}
+                [body,links]
+            end
+        end
+    end
 end

data/lib/em-riak/map_reduce.rb

@@ -1,39 +1,50 @@
 MRMAPPER={
-	:secondary_index_single_query=>"{\"inputs\" => {\"bucket\"=> \"@!bucket!@\",\"index\"=> \"@!index!@\", \"key\"=>\"@!value!@\"},
-								   \"query\"  => [{\"map\"=> {\"language\"=> \"javascript\",\"source\"=>\"function(riakObject){ var body={}; var body_arrays=riakObject.values[0].data.split('&head')[0].split('&'); for(i=0;i<body_arrays.length;i++){ body[body_arrays[i].split('=')[0]]=body_arrays[i].split('=')[1];}; return [[riakObject.key, body]]; }\"}  },
-						  		   				  {\"reduce\"=> {\"language\"=> \"erlang\", \"module\"=>\"riak_kv_mapreduce\", \"function\"=>\"reduce_identity\", \"keep\"=>true} }
-						  		   			     ]}",
-	:secondary_index_range_query=>"",
-	:secondary_index_multiple_query=>"{\"inputs\"=> {\"bucket\"=>\"@!bucket!@\",\"index\"=> \"@!index!@\",\"key_filters\"=>[[\"greater_than\",0]]},
-									  	\"query\" => [{\"map\"=> {\"language\"=>\"javascript\", \"source\"=>\"function(riakObject){var search_string='@!value!@';var search_values=search_string.split(',');var metadata=riakObject.values[0].metadata; var indexes=null; var match=false; if(metadata){ if(metadata.index){ indexes=metadata.index.@!index!@; var temp_index=indexes; if(typeof(indexes)!='object') indexes=[indexes];} if(indexes){ for(i=0;i<search_values.length; i++){if(indexes.indexOf(search_values[i])>0){match=true;break;};};};}; return (indexes && match) ? [[riakObject.bucket,riakObject.key]] : [[false,false]];}\" }},
-									  				{\"reduce\"=> {\"language\"=> \"erlang\", \"module\"=>\"riak_kv_mapreduce\", \"function\"=>\"reduce_set_union\", \"keep\"=>true} }
-									               ]}",
-	:full_text_query=>"",
-	:clean_bucket=>"{\"inputs\"=> {\"bucket\"=>\"@!bucket!@\",\"key_filters\"=>[[\"greater_than\",0]]},
-			  		 \"query\" => [{\"map\"=> {\"language\"=>\"javascript\", \"source\"=>\"function(riakObject){return [[riakObject.key]];}\"  }}
-			               		  ]}"
+    :secondary_index_single_query=>"{\"inputs\" => {\"bucket\"=> \"@!bucket!@\",\"index\"=> \"@!index!@\", \"key\"=>\"@!value!@\"},
+                                   \"query\"  => [{\"map\"=> {\"language\"=> \"javascript\",\"source\"=>\"function(riakObject){ var body={}; var body_arrays=riakObject.values[0].data.split('&head')[0].split('&'); for(i=0;i<body_arrays.length;i++){ body[body_arrays[i].split('=')[0]]=body_arrays[i].split('=')[1];}; return [[riakObject.key, body]]; }\"}  },
+                                                  {\"reduce\"=> {\"language\"=> \"erlang\", \"module\"=>\"riak_kv_mapreduce\", \"function\"=>\"reduce_identity\", \"keep\"=>true} }
+                                                 ]}",
+    :secondary_index_range_query=>"",
+    :secondary_index_multiple_query=>"{\"inputs\"=> {\"bucket\"=>\"@!bucket!@\",\"index\"=> \"@!index!@\",\"key_filters\"=>[[\"greater_than\",0]]},
+                                        \"query\" => [{\"map\"=> {\"language\"=>\"javascript\", \"source\"=>\"function(riakObject){var search_string='@!value!@';var search_values=search_string.split(',');var metadata=riakObject.values[0].metadata; var indexes=null; var match=false; if(metadata){ if(metadata.index){ indexes=metadata.index.@!index!@; var temp_index=indexes; if(typeof(indexes)!='object') indexes=[indexes];} if(indexes){ for(i=0;i<search_values.length; i++){if(indexes.indexOf(search_values[i])>0){match=true;break;};};};}; return (indexes && match) ? [[riakObject.bucket,riakObject.key]] : [[false,false]];}\" }},
+                                                    {\"reduce\"=> {\"language\"=> \"erlang\", \"module\"=>\"riak_kv_mapreduce\", \"function\"=>\"reduce_set_union\", \"keep\"=>true} }
+                                                   ]}",
+    :clean_bucket=>"{\"inputs\"=> {\"bucket\"=>\"@!bucket!@\",\"key_filters\"=>[[\"greater_than\",0]]},
+                     \"query\" => [{\"map\"=> {\"language\"=>\"javascript\", \"source\"=>\"function(riakObject){return [[riakObject.key]];}\"  }}
+                                  ]}"
 }
 
 module EmRiak
-	module MapReduce
-		extend self
-		def submit(mode_or_string,params)
-			if mode_or_string.class==Symbol
-				map_reduce_work=MRMAPPER[mode_or_string]
-				map_reduce_work.gsub!(/@!(.{1,}?)!@/){|m| params[$1] }
-				map_reduce_work=eval(map_reduce_work)
-			end
-			url="/mapred"
-			map_reduce_json=EmRiak.json_encode(map_reduce_work)
-			data={:head=>{"Content-Type"=>"application/json"},:body=>map_reduce_json}
-			res=EmRiak.http("post","mapred",url,data)
+    module MapReduce
+        extend self
+        def submit(*args)
+            mode_or_string,params,result_handler,callback,callback_proc=args.first
+            if mode_or_string.class==Hash
+                submit_work=mode_or_string
+            elsif mode_or_string.class==Symbol
+                map_reduce_work=MRMAPPER[mode_or_string]
+                submit_work=map_reduce_work.gsub(/@!(.{1,}?)!@/){|m| params[$1] }
+                submit_work=eval(submit_work)
+            end
+            url="/mapred"
+            map_reduce_json=EmRiak.json_encode(submit_work)
+            data={:head=>{"Content-Type"=>"application/json"},:body=>map_reduce_json}
+            
+            callback_proc=Proc.new{|results|  callback.call(callback_handler(results,result_handler))  } if callback
+            res=EmRiak.http("post","mapred",url,data,callback_proc)
+            res=callback_handler(res,result_handler) if !callback_proc
 
-			if res.class==String
-				res=EscapeUtils.unescape_url(res.encode('UTF-8').gsub("+","")).gsub("=>",":").gsub("\"{","{").gsub("}\"","}").gsub("%20"," ")
-				res=EmRiak.json_decode(res)
-			end
-			res=EmRiak.convert_params_layers(res,:to_sym) if res.class==Hash
-			res
-		end
-	end
+            res
+        end
+
+        private
+        def callback_handler(res,result_handler)
+            if res.class==String
+                res=EscapeUtils.unescape_url(res.encode('UTF-8').gsub("(","\(").gsub(")","\)").gsub("+","").gsub("=>",":").gsub("\"{","{").gsub("}\"","}").gsub("%20"," ").gsub("%22","@!quote!@")).gsub("@!quote!@","\\\"")
+                res=EmRiak.json_decode(res)
+            end
+            res=EmRiak.convert_params_layers(res,:to_sym) if res.class==Hash
+            res=result_handler.call(res,{}) if result_handler 
+            res
+        end
+    end
 end

data/lib/em-riak/model.rb

@@ -0,0 +1,7 @@
+module EmRiak
+    module Model
+        extend self
+        
+        
+    end
+end

data/lib/em-riak/secondary_index.rb

@@ -1,68 +1,74 @@
 module EmRiak
-	module SecondaryIndex
-		extend self
-		def add_tag(data_self,args)
-			data,opts=handle_data_and_options(data_self,args)
-			submit_work("add",data_self,data,opts)
-		end
-		
-		def remove_tag(data_self,args)		
-			data,opts=handle_data_and_options(data_self,args)
-			submit_work("remove",data_self,data,opts)
-		end
+    module SecondaryIndex
+        extend self
+        def add_tag(data_self,args)
+            data,opts=handle_data_and_options(data_self,args)
+            submit_work("add",data_self,data,opts)
+        end
+        
+        def remove_tag(data_self,args)      
+            data,opts=handle_data_and_options(data_self,args)
+            submit_work("remove",data_self,data,opts)
+        end
 
-		protected
-		def submit_work(submit_mode,data_self,data,opts,res={:status=>"success"})
-			self.send "#{submit_mode}_as_index",data_self,data,opts
-		end
+        protected
+        def submit_work(submit_mode,data_self,data,opts,res={:status=>"success"})
+            self.send "#{submit_mode}_as_index",data_self,data,opts
+        end
 
-		def handle_data_and_options(data_self,args)
-			data={:head=>data_self[:head],:body=>data_self,:query=>{}}
-			data[:body].delete(:head)
-			args=args[0] if args[0].class==Array
-			opts={:bin=>args[0]}
-			opts[:secondary_index]= if args[1] && args[1].class==Hash
-										args[1].each{|key,value| opts[key]=value }
-										args[2..args.count]
-								    else 
-								    	args[1..args.count]
-								    end
-			[data, opts]
-		end
-		def merge_tag(new_heads,old_heads,res={})
-			return new_heads if !old_heads
-			new_heads.each do |key,value|
-				res[key]= key.match(/x-riak-index-/) && old_heads[key] ? value.split(", ").concat(old_heads[key].split(", ")).uniq.join(", ") : value
-			end
-			res
-		end
+        def handle_data_and_options(data_self,args)
+            data={:head=>data_self[:head],:body=>data_self,:query=>{}}
+            data[:body].delete(:head)
+            args=args[0] if args[0].class==Array
+            opts={:bin=>args[0]}
+            opts[:secondary_index]= if args[1] && args[1].class==Hash
+                                        args[1].each{|key,value| opts[key]=value }
+                                        args[2..args.count]
+                                    else 
+                                        args[1..args.count]
+                                    end
+            [data, opts]
+        end
+        def merge_tag(new_heads,old_heads,res={})
+            return new_heads if !old_heads
+            new_heads.each do |key,value|
+                res[key]= key.match(/x-riak-index-/) && old_heads[key] ? value.split(", ").concat(old_heads[key].split(", ")).uniq.join(", ") : value
+            end
+            res
+        end
 
-		def add_as_index(data_self,data,opts)
-			temp_head, data[:query] = EmRiak.handle_options("post",opts)
-			data[:head]=merge_tag(temp_head,data[:head])
-			data_self[:head]=data[:head]
+        def add_as_index(data_self,data,opts)
+            temp_head, data[:query] = EmRiak.handle_options("post",opts)
+            data[:head]=merge_tag(temp_head,data[:head])
+            data_self[:head]=data[:head]
 
-			url="/buckets/#{EmRiak.bucket}/keys/#{data_self[:riak_key]}"
-			EmRiak.http("post","2i",url,data)
-		end
-		def destroy_tag(new_heads,old_heads)
-			return new_heads if !old_heads
-			new_heads.each do |key,value|
-				if key.match(/x-riak-index-/) && old_heads[key]
-					temp_head=old_heads[key].split(", ")
-					temp_head.delete(value)
-					old_heads[key]=temp_head.uniq.join(", ")
-				end
-			end
-			old_heads
-		end
-		def remove_as_index(data_self,data,opts)
-			temp_head, data[:query] = EmRiak.handle_options("post",opts)
-			data[:head]=destroy_tag(temp_head,data[:head])
-			data_self[:head]=data[:head]
-			
-			url="/buckets/#{EmRiak.bucket}/keys/#{data_self[:riak_key]}"
-			EmRiak.http("post","2i",url,data)
-		end
-	end
+            url="/buckets/#{EmRiak.bucket}/keys/#{data_self[:riak_key]}"
+            EmRiak.http("post","2i",url,data)
+        end
+        def destroy_tag(new_heads,old_heads)
+            return new_heads if !old_heads
+            new_heads.each do |key,value|
+                new_value= (value.class==String && value.split(", ").count>1) ? value.split(", ") : value
+                if key.match(/x-riak-index-/) && old_heads[key]
+                    temp_head=old_heads[key].split(", ")
+                    if new_value.class==Array
+                        new_value.each{|v| temp_head.delete(v) }
+                    else
+                        temp_head.delete(new_value)
+                    end
+                    old_heads[key]=temp_head.uniq.join(", ")
+                end
+            end
+            old_heads
+        end
+        def remove_as_index(data_self,data,opts)
+            temp_head, data[:query] = EmRiak.handle_options("post",opts)
+            data[:head]=destroy_tag(temp_head,data[:head])
+            data_self[:head]=data[:head]
+            
+            url="/buckets/#{EmRiak.bucket}/keys/#{data_self[:riak_key]}"
+            p "remove data #{data}"
+            EmRiak.http("post","2i",url,data)
+        end
+    end
 end

data/lib/em-riak/utils.rb

@@ -1,22 +1,22 @@
 module EmRiak
-	module Util
-		extend self
-		def clean_bucket(bucket_name)
-			keys=EmRiak::MapReduce.submit(:clean_bucket,{"bucket"=>bucket_name})
-			if keys
-				if !(keys.class==Hash && keys[:error]) 
-					keys=keys[0] if keys.class==Array && keys.count==1
-					keys.each{|key| 
-						key=key[0].gsub("\\","\/")
-						EmRiak.destroy(URI.escape(key[0]).to_s)
-					}
-					puts "clean done" 
-				else 
-					puts "Something went wrong." if EmRiak.debug
-				end
-			else
-				puts "key empty" 
-			end
-		end
-	end
+    module Util
+        extend self
+        def clean_bucket(bucket_name)
+            keys=EmRiak::MapReduce.submit(:clean_bucket,{"bucket"=>bucket_name})
+            if keys
+                if !(keys.class==Hash && keys[:error]) 
+                    keys=keys[0] if keys.class==Array && keys.count==1
+                    keys.each{|key| 
+                        key=key[0].gsub("\\","\/")
+                        EmRiak.destroy(URI.escape(key[0]).to_s)
+                    }
+                    puts "clean done" 
+                else 
+                    puts "Something went wrong." if EmRiak.debug
+                end
+            else
+                puts "key empty" 
+            end
+        end
+    end
 end

data/lib/em-riak/version.rb

@@ -1,3 +1,3 @@
 module EmRiak
-  VERSION = "0.2.0"
+    VERSION = "0.2.5"
 end

data/spec/unit/basic.rb

@@ -0,0 +1,81 @@
+# encoding: UTF-8
+require 'rubygems'
+require 'eventmachine'
+require 'em-http-request'
+require 'httpi'
+require 'yajl'
+require 'em-riak'
+TEST_RIAK_HOSTS=["http://127.0.0.1:8091","http://127.0.0.1:8092","http://127.0.0.1:8093","http://127.0.0.1:8094"]
+require File.expand_path('../../../lib/em-riak', __FILE__)
+gem 'minitest'
+require 'minitest/autorun'
+
+
+class TestDirectCRUD < MiniTest::Unit::TestCase
+    def setup
+        EmRiak::Connection.new({:bucket=>"test-member",:async=>false,:hosts=>TEST_RIAK_HOSTS})
+        @data={:name=>"5",:riak_key=>"member5"}
+    end
+
+    def test_direct_create
+        member=EmRiak.create("member5",{:name=>5})
+        @data.each{|k,v| raise "error" if !member.send(k) || member.send(k)!=v }
+    rescue Exception => e
+        false
+    end
+
+    def test_direct_find
+        EmRiak.create("member5",{:name=>5})
+        member=EmRiak.find("member5")
+        assert_equal @data, member
+    end
+
+    def test_direct_destroy
+        assert_equal nil,EmRiak.destroy("member5")
+        assert_equal nil,EmRiak.find("member5")
+    end 
+
+    def test_direct_create_and_find
+        member=EmRiak.create("member5",{:name=>5})
+        @data.each{|k,v| raise "error" if !member.send(k) || member.send(k)!=v }
+        assert_equal @data, EmRiak.find("member5")
+    rescue Exception => e
+        false 
+    end
+end
+
+class TestAsyncCRUD < MiniTest::Unit::TestCase
+    def setup
+        EmRiak::Connection.new({:bucket=>"test-member",:async=>false,:hosts=>TEST_RIAK_HOSTS})
+        @data={:name=>"5",:riak_key=>"member5"}
+    end
+    def test_async_find
+        EM.run do
+            EmRiak.find("member5"){|result| 
+                assert_equal @data, result 
+                EM.stop
+            }
+        end
+    end
+    def test_async_create
+        EM.run do 
+            EmRiak.create("member5",@data){|member|
+                assert_equal nil,member # Because Riak does not response data when create, so it's nil. Will response data with next release.
+                member=EmRiak.find("member5")
+                assert_equal @data, member
+                EM.stop
+            }
+        end
+    end
+
+    def test_async_destroy
+        EM.run do 
+            EmRiak.destroy("member5",@data){|member|
+                assert_equal nil,member 
+                member=EmRiak.find("member5")
+                assert_equal nil,member
+                EM.stop
+            }
+        end
+    end
+end

data/spec/unit/core.rb

@@ -0,0 +1,70 @@
+# encoding: UTF-8
+require 'rubygems'
+require 'eventmachine'
+require 'em-http-request'
+require 'httpi'
+require 'yajl'
+require 'em-riak'
+TEST_RIAK_HOSTS=["http://127.0.0.1:8091","http://127.0.0.1:8092","http://127.0.0.1:8093","http://127.0.0.1:8094"]
+require File.expand_path('../../../lib/em-riak', __FILE__)
+gem 'minitest'
+require 'minitest/autorun'
+
+
+class TestEmRiakCoreFunctions < MiniTest::Unit::TestCase
+    def setup
+    end
+    
+    def test_hosts_weight
+    end
+
+    def test_consist_get_and_post
+    end
+
+    def test_vector_clock
+    end
+
+    def test_sibling
+    end
+
+    def test_key_handler
+    end
+
+    def test_convert_params_layers
+    end
+
+    def test_json_coder
+    end
+end
+
+class TestEmRiakStorageObjcetFunctionality < MiniTest::Unit::TestCase
+    def setup
+        EmRiak::Connection.new({:bucket=>"test-member",:async=>false,:hosts=>TEST_RIAK_HOSTS})
+        EmRiak.create("member5",{:name=>5})
+        @member=EmRiak.find("member5",{:name=>5})
+    end
+
+    def test_self_data
+        assert_equal "5",@member.name
+        assert_equal "member5", @member.riak_key
+    end
+
+    def test_self_update
+        @member.name="10"
+        @member.gender="male"
+        @member.save
+
+        assert_equal "10",@member.name
+        assert_equal "male",@member.gender
+
+        member=EmRiak.find("member5")
+        assert_equal "male",member.gender
+    end
+
+    def test_self_destroy
+        response=@member.destroy
+        member=EmRiak.find("member5")
+        assert_equal nil,response
+        assert_equal nil,member
+    end
+end

data/spec/unit/map_reduce.rb

@@ -0,0 +1,64 @@
+# encoding: UTF-8
+require 'rubygems'
+require 'eventmachine'
+require 'em-http-request'
+require 'httpi'
+require 'yajl'
+require 'em-riak'
+TEST_RIAK_HOSTS=["http://127.0.0.1:8091","http://127.0.0.1:8092","http://127.0.0.1:8093","http://127.0.0.1:8094"]
+require File.expand_path('../../../lib/em-riak', __FILE__)
+gem 'minitest'
+require 'minitest/autorun'
+
+class TestMapReduce < MiniTest::Unit::TestCase
+    def setup
+    	EmRiak::Connection.new({:bucket=>"test-member",:async=>false,:hosts=>TEST_RIAK_HOSTS})
+    	@mrwork={"inputs"=> {"bucket"=>"test-member","index"=> "likes_bin","key_filters"=>[["greater_than",0]]},
+                 "query" => [{"map"=> {"language"=>"javascript", "source"=>"function(riakObject){var search_string='cool,ruby,social,天天開心,寫程式好Happy';var search_values=search_string.split(',');var metadata=riakObject.values[0].metadata; var indexes=null; var match=false; if(metadata){ if(metadata.index){ indexes=metadata.index.likes_bin; var temp_index=indexes; if(typeof(indexes)!='object') indexes=[indexes];} if(indexes){ for(i=0;i<search_values.length; i++){if(indexes.indexOf(search_values[i])>0){match=true;break;};};};}; return (indexes && match) ? [[riakObject.bucket,riakObject.key]] : [[false,false]];}" }},
+                            {"reduce"=> {"language"=> "erlang", "module"=>"riak_kv_mapreduce", "function"=>"reduce_set_union", "keep"=>true} }
+                            ]
+                }
+    end
+
+    def test_sumbit_map_reduce
+    	EmRiak.create("member8",{:name=>"Tester"})
+    	@member=EmRiak.find("member8")
+
+    	@member.add_tag(:likes,["cool","ruby","social","天天開心","寫程式好Happy"])
+		@member=EmRiak.find("member8")    	
+    	EmRiak.search(:secondary_index,{:bin=>:likes},["cool","ruby","social","天天開心","寫程式好Happy"]).reject{|ary| ary==[false,false]}
+
+    	data=EmRiak::MapReduce.submit(@mrwork).reject{|ary| ary==[false,false]}
+    	assert_operator 0, :<, data.count
+
+    	has_member=false
+        data.each{|ary| has_member=true if "member8"==ary[1] }
+        assert_equal true,has_member
+    end
+
+    def test_async_callback
+    	EM.run do
+	    	callback=Proc.new{|data|
+	    		assert_operator 0, :<, data.count
+	    		has_member=false
+		        data.each{|ary| has_member=true if "member8"==ary[1] }
+		        assert_equal true,has_member
+	    		EM.stop
+	    	}
+	    	EmRiak::MapReduce.submit([@mrwork, nil, nil, callback])
+	    end
+    end
+
+    def test_result_handler_callback
+    	result_handler=Proc.new{|data|
+    		data=data.reject{|ary| ary==[false,false]}
+    		assert_operator 0, :<, data.count 
+
+    		has_member=false
+	        data.each{|ary| has_member=true if "member8"==ary[1] }
+	        assert_equal true,has_member
+    		assert_equal true,true
+    	}
+    	EmRiak::MapReduce.submit([@mrwork, nil, result_handler])
+    end
+end