[p5sagit/Sub-ScalarLike.git] / t / simple.t

use strict;
use warnings FATAL => 'all';
use Sub::ScalarLike ();
use Test::More;

BEGIN {
  package Spoon;

  my %scope; sub _SCOPE { \%scope }

  BEGIN { Sub::ScalarLike::setup_for(__PACKAGE__) }

  sub froom {
    foo = bar + baz;
  }

  BEGIN { Sub::ScalarLike::teardown_for(__PACKAGE__) }
}

ok(Spoon->can($_), "sub for $_ created") for qw(foo bar baz);

Spoon->_SCOPE->{bar} = 1;
Spoon->_SCOPE->{baz} = 2;

Spoon::froom();

cmp_ok(Spoon->_SCOPE->{foo}, '==', 3, 'bareword assign also works');

done_testing;
Commit	Line	Data
d8316caf	1	use strict;
	2	use warnings FATAL => 'all';
	3	use Sub::ScalarLike ();
	4	use Test::More;
	5
	6	BEGIN {
	7	package Spoon;
	8
	9	my %scope; sub _SCOPE { \%scope }
	10
	11	BEGIN { Sub::ScalarLike::setup_for(__PACKAGE__) }
	12
	13	sub froom {
	14	foo = bar + baz;
	15	}
	16
	17	BEGIN { Sub::ScalarLike::teardown_for(__PACKAGE__) }
	18	}
	19
	20	ok(Spoon->can($_), "sub for $_ created") for qw(foo bar baz);
	21
	22	Spoon->_SCOPE->{bar} = 1;
	23	Spoon->_SCOPE->{baz} = 2;
	24
	25	Spoon::froom();
	26
	27	cmp_ok(Spoon->_SCOPE->{foo}, '==', 3, 'bareword assign also works');
	28
	29	done_testing;