#
# very simple client/server tests
#
# $Id$
#

package require ctable_client

remote_ctable ctable://127.0.0.1/dumbData t

# use to test redirect
#remote_ctable ctable://127.0.0.1:11112/dumbData t

puts "search of t in descending coolness limit 5 / code body"
t search -sort -coolness -limit 5 -key key -array_get_with_nulls data -code {puts "$key -> $data"}
puts ""

puts "search of t in descending coolness limit 5"
t search -sort -coolness -limit 5 -write_tabsep stdout
puts ""


#
# very simple client/server tests
#
# $Id$
#

package require ctable_client

remote_ctable ctable://127.0.0.1/dumbData t

# use to test redirect
#remote_ctable ctable://127.0.0.1:11112/dumbData t

puts "search of t in descending coolness limit 5 / code body"
t search -sort -coolness -limit 5 -key key -array_get_with_nulls data -code {puts "$key -> $data"}
puts ""

puts "search of t in descending coolness limit 5"
t search -sort -coolness -limit 5 -write_tabsep stdout
puts ""

puts "search+ of t in descending coolness limit 5 / code body"
puts [t index indexable]
t index create show

t search+ -sort -coolness -limit 5 -key key -array_get_with_nulls data -code {puts "$key -> $data"}
puts ""

puts "search+ of t in descending coolness limit 5"
t search+ -sort -coolness -limit 5 -write_tabsep stdout
puts ""


Add a couple of search+ tests.
Add a couple of search+ tests.
