#!/bin/sh

. functions

output=${1:-widgets}

$rekall $style --skipSplash RekallAutoTest.rkl 2>/dev/null &

     PID=$!
rekallID=$rekall-$PID

waitForRekall $rekallID

servers=`$dcop $rekallID rekall-server-list 'listServers()'`

[ $output == 'widgets' ] && {
	mkdir -p widgets
	clean	 widgets
}

echo	"DCOP Widget dump test:"

for server in $servers
do
    echo "    $server"

      forms=`$dcop $rekallID rekall-part-form   'listObjects(QString)' "$server"`
    reports=`$dcop $rekallID rekall-part-report 'listObjects(QString)' "$server"`

    echo "        Forms:"

    for form in $forms
    do
	echo "            $form"
    	$dcop $rekallID rekall-part-form  'openObject(QString,QString,int)' 'MySQL' "$form" 1 > /dev/null
	$dcop $rekallID rekall-form/$form 'widgetTree(int)' 0 > $output/$form
	$dcop $rekallID rekall-form/$form 'close(int)' 1 > /dev/null
    done
done

kill	$PID
