gistfile1.txt

#!/usr/bin/perl -w

BEGIN {
    require 'mysql-agent';
}

use Data::Dumper;
use Test::More tests => 9;

$innodb_parser = InnoDBParser->new;
s(
   $innodb_parser->make_bigint('0', '1170663853'),
   '1170663853',
   'make_bigint 0 1170663853'
);

is(
   $innodb_parser->make_bigint('1', '504617703'),
   '4799584999',
   'make_bigint 1 504617703'
);

is(
   $innodb_parser->make_bigint('EF861B144C'),
   '1028747105356',
   'make_bigint EF861B144C'
);

is(
   $innodb_parser->tonum('0'),
   '0',
   'tonum 0'
);

is(
   $innodb_parser->tonum(),
   '0',
   'tonum undef'
);

is(
   $innodb_parser->tonum('74900191315') - $innodb_parser->tonum('1170664159'),
   '73729527156',
   'substraction 1170664159 74900191315'
);

is(
   $innodb_parser->tonum('39731928'),
   '39731928',
   'should get 39731928'
);