#!/usr/local/bin/perl

	package OtherPackage;
	our $our_scalar=13;

	package MyPackage;

use Test::More tests => 3;
BEGIN { use_ok('Symbol::Table') };


	my $st = Symbol::Table->New('SCALAR', 'main::OtherPackage');
	my $ref = $st->{our_scalar};
	my $val = $$ref;

	is($val,'13', "confirm we can read old scalar value");


	my $override=42;
	$st->{our_scalar}=\$override;

	my $newval = $OtherPackage::our_scalar;

	is($newval, '42', "confirm we can override var via symbol table object");