#!/usr/bin/perl

use common::sense;
use DBI;

# create the table:
#
# create table a (id int primary key, v1 int, v2 int, v3 int);
#

sub main {
	my (@argv) = @_;

	my $id = 0;
	my $increment = 1;
	my $total = 0;

	my $dbh = DBI->connect("DBI:Pg:dbname=test");
	$dbh->begin_work();

	my $ins = $dbh->prepare("INSERT INTO a (id, v1, v2, v3) VALUES (?, ?, ?, ?)");
	my $del = $dbh->prepare("DELETE FROM a WHERE id = ?");

	if (@argv) {
		$id = $argv[0];
		$increment = 0;
	}

	for (;;$id += $increment) {
		$ins->execute($id, $id, $id, $id);
		$del->execute($id);

		print STDERR "#$total: $id\r";
		++$total;
	}
}

exit(main(@ARGV));