#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
__PACKAGE__->main('UR');
sub main {
my ($test, $module) = @_;
use_ok($module) or exit;
$test->ur_context_class_commit_triggers_observer;
done_testing();
}
sub ur_context_class_commit_triggers_observer {
my $self = shift;
my $context = UR::Context->current;
ok(UR::Context->commit, 'UR::Context committed');
my $commit_callback_ran;
my $commit_callback = sub {
$commit_callback_ran = 1;
};
$context->add_observer(
aspect => 'commit',
callback => $commit_callback,
);
ok(UR::Context->commit, 'UR::Context committed');
is($commit_callback_ran, 1, 'commit_callback ran');
}