#!/usr/bin/perl

use DBI;
use strict;
use warnings;

my $dbh;

sub onevaluesql($) {
  my ($command) = @_;
  my $sth=$dbh->prepare($command);
  $sth->execute();
  my ($value) = $sth->fetchrow_array();
  $sth->finish();
  return $value;
}

sub test($$) {
  my ($testname,$test) = @_;
  $dbh->do("insert into test(name,test) values (?,?);",undef,$testname,$test);
  my $resulttest = 
    onevaluesql("select test from test where name='$testname';");
  if($test eq $resulttest) {
    print "$testname is successful on DBI readback.\n";
  } else {
    print "$testname failed on DBI readback. Got $resulttest where $test was expected.\n";
  }
  $dbh->commit();
  my $resulttest2 = `echo "select test from test where name='$testname';" | psql --html`;
  print "psql raw results: $resulttest2\n";
  if($resulttest2 =~ s/<td align="left">([^<]*)</td>/) {
    $resulttest2=$1;
  }  
  if($test eq $resulttest2) {
    print "$testname is successful on psql readback.\n";
  } else {
    print "$testname failed on psql readback. Got $resulttest where $test was expected.\n";    
  }
}

$dbh = DBI->connect("dbi:Pg:dbname=articles", "", "", {AutoCommit => 0, RaiseError => 1});
print "DBI is version $DBI::VERSION, DBD::Pg is version $DBD::Pg::VERSION\n";
print "client_encoding=" . onevaluesql("show client_encoding;") . ", server_encoding=" . onevaluesql("show server_encoding;") . "\n";
system "locale";
print "-------------------\n";
$dbh->do("drop table if exists test;");
$dbh->do("create table test ( name text, test text );");
$dbh->commit();
test('test1','ascii');
test('test2','äöüßÄÖÜ');
$dbh->disconnect();