Lines Matching refs:p1
426 # Compare snapshots $p1 and $p2, checking that the result is $r.
428 proc do_snapshot_cmp_test {tn p1 p2 r} {
429 uplevel [list do_test $tn.1 [list snapshot_cmp $p1 $p2] $r]
430 uplevel [list do_test $tn.2 [list snapshot_cmp $p2 $p1] [expr $r*-1]]
431 uplevel [list do_test $tn.3 [list snapshot_cmp $p1 $p1] 0]
445 set p1 [snapshot_get db main]
455 do_snapshot_cmp_test $tn.7.1.3 $p1 $p2 -1
456 snapshot_free $p1
467 set p1 [snapshot_get db main]
479 do_snapshot_cmp_test $tn.7.2.3 $p1 $p2 -1
492 do_snapshot_cmp_test $tn.7.3.2 $p1 $p2 -1
493 snapshot_free $p1