#!/usr/bin/perl

use strict;
use warnings;
use Test::More;

BEGIN { use_ok 'test_class' }

my $tc = test_class->new();

# the dispatch table
my %test_points = (
  test_point_one => \&test_point_one,
  test_point_two => \&test_point_two,
);

# setup the callback dispatch
$tc->tp_callback(
  sub {
    my $tp = shift; 
    $test_points{$tp}->(@_);
  }
);

# regular tests here
cmp_ok($tc->asub(), '==', 1, 'Result of asub');

# callback test subs here (or in pm?)
sub test_point_one {
  my $params = shift; #not used in this test point
  cmp_ok($tc->bar, 'eq', 'result', 
         'Value of attr bar at test_point_one');
}

sub test_point_two {
  my $params = shift;
  cmp_ok($params->{lvar_foo}, 'eq', 'yuca',
         'Value of lvar_foo at test_point_two');
  cmp_ok($params->{lvar_bar}, 'eq', 'pelada', 
         'Value of lvar_bar at test_point_two');
}

done_testing();