#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 1;
use Test::Exception;
use Continuation::Escape;

my $continuation;
call_cc {
    $continuation = shift;
};

throws_ok {
    $continuation->();
} qr/^Escape continuations are not usable outside of their original scope\./;

