Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 42 lines (29 sloc) 1.12 KB
#!/bin/bash
test_dir=`echo $0 | perl -pe's#(.*)/.*#$1#;'`
source "$test_dir/test.sh"
bin=`pg_config --bindir`
psql="$bin/psql"
waits=3
trap 'if [ -n "$spid" ]; then echo "killing server $spid"; kill $spid; fi; exit' 2 13 15
$psql -f "$test_dir/request-serialize-callback-type-null.sql"
perl -Mojo -e'a("/"=>sub{$c=shift;$t=$c->param("title");$c->render_json({nrows=>2,rows=>[{title=>$t,link=>"l0",snippet=>"s0"},{title=>$t,link=>"l1",snippet=>"s1"}]})})->start' daemon --listen http://*:7777 &
spid=$!
sleep $waits
sql="select * from www_fdw_test"
r=`$psql -tA -c"$sql"`
test "$r" $'titel2|l0|s0\ntitel2|l1|s1' "$sql"
sql="select * from www_fdw_test limit 1"
r=`$psql -tA -c"$sql"`
test "$r" $'titel2|l0|s0' "$sql"
sql="select * from www_fdw_test order by link"
r=`$psql -tA -c"$sql"`
test "$r" $'titel2|l0|s0\ntitel2|l1|s1' "$sql"
sql="select * from www_fdw_test order by link desc"
r=`$psql -tA -c"$sql"`
test "$r" $'titel2|l1|s1\ntitel2|l0|s0' "$sql"
sql="select * from www_fdw_test order by link limit 1"
r=`$psql -tA -c"$sql"`
test "$r" $'titel2|l0|s0' "$sql"
kill $spid
# clean up
$psql -c"DROP EXTENSION IF EXISTS www_fdw CASCADE"