@#setdebug level=51 storage=DiskChanger
@#setdebug level=100 storage=File tags=dedup,asx,network options=h
dedup rehydra_check_hash=1
-run job=copy-job $run_spooldata yes
+run job=copy-job $run_spooldata comment="from control job" yes
wait
messages
@#purge volume=FileVolume001
list volumes
wait
messages
+@$out $tmp/log4.out
+.jlist jobid=6
quit
END_OF_DATA
print_debug "The incremental job must use copied jobs"
fi
+grep '{' $tmp/log4.out | perl -MJSON -e '$j = decode_json(<>); exit ($j->{data}->[0]->{comment} eq "from control job" && $j->{data}->[0]->{controljobid} == 5);'
+
+if [ $? = 0 ]; then
+ print_debug "Incorrect comment or controljobid SQL field"
+ estat=1
+fi
+
end_test