Lines Matching refs:p2
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]]
432 uplevel [list do_test $tn.4 [list snapshot_cmp $p2 $p2] 0]
451 set p2 [snapshot_get db main]
455 do_snapshot_cmp_test $tn.7.1.3 $p1 $p2 -1
457 snapshot_free $p2
475 set p2 [snapshot_get db main]
479 do_snapshot_cmp_test $tn.7.2.3 $p1 $p2 -1
480 snapshot_free $p2
488 set p2 [snapshot_get db main]
492 do_snapshot_cmp_test $tn.7.3.2 $p1 $p2 -1
494 snapshot_free $p2