<commit_before>#!/usr/bin/env perl
# -*-mode:cperl; indent-tabs-mode: nil-*-

## Test handling of object names

use 5.008003;
use strict;
use warnings;
use utf8;
use open qw( :std :utf8 );
use charnames ':full';
use lib 't','.';
use DBD::Pg;
use Test::More;

(my $dbdpgversion = $DBD::Pg::VERSION) =~ s/^(\d+).*/$1/;

if (! $dbdpgversion < 3) {
    plan (skip_all =>  'Test skipped unless DBD::Pg is version 3 or higher');
}
plan tests => 20;

use BucardoTesting;
my $bct = BucardoTesting->new({ location => 'makedelta' })<commit_msg>Fix up test test; better version output too.<commit_after>#!/usr/bin/env perl
# -*-mode:cperl; indent-tabs-mode: nil-*-

## Test handling of object names

use 5.008003;
use strict;
use warnings;
use utf8;
use open qw( :std :utf8 );
use charnames ':full';
use lib 't','.';
use DBD::Pg;
use Test::More;

my $dbdpgversion = $DBD::Pg::VERSION;
(my $majorversion = $dbdpgversion) =~ s/^(\d+).*/$1/;

if ($majorversion < 3) {
    plan (skip_all =>  "Test skipped unless DBD::Pg is version 3 or higher: this is $dbdpgversion");
}
plan tests => 20;

use BucardoTesting;
my $bct = BucardoTesting->new({ location => 'makedelta' })
{'fraction_non_alphanumeric': 0.18630849220103987, 'fraction_numerical': 0.024263431542461005, 'mean_word_length': 4.32258064516129, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 11, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1160340', 'n_tokens_mistral': 470, 'n_tokens_neox': 443, 'n_words': 135}