#!/usr/bin/perl

use strict;
use warnings;
use autodie qw(:all);

use Test::More;

my $pkg_name = "hello";
my ($pkg_ver) = `apt-cache showsrc $pkg_name | grep ^Version:` =~ /.+?:\s(.*)/;
my $src_ver = $pkg_ver =~ s/-.+?$//r;
my $build_dir = "/var/cache/apt-build/build";
my $ch_file = "$build_dir/$pkg_name-$src_ver/debian/changelog";
my $curr_ver = `dpkg-parsechangelog -l $ch_file -S Version`;
my ($n) = $curr_ver =~ /(?<=\+aptbuild)\d+$/g;

system 'apt-build', 'install', $pkg_name;

$n++;
is(`dpkg-query -W $pkg_name`, "$pkg_name\t$pkg_ver+aptbuild$n\n");
$ENV{LANG} = "C";
is(`hello`, "Hello, world!\n");

done_testing;