#!/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_process_is_distinguished_from_current;
    
    done_testing();
}

sub ur_context_process_is_distinguished_from_current {
    my $self = shift;

    my $cc = UR::Context->current;
    my $cp = UR::Context->process;
    is($cc->id, $cp->id, 'current returned the same as process');

    my $tx = UR::Context::Transaction->begin;
    my $new_cc = UR::Context->current;
    my $new_cp = UR::Context->process;
    isnt($new_cc->id, $cc->id, 'current changed within transaction');
    is  ($new_cp->id, $cp->id, 'process did not change within transaction');
}