The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test::More;

use Plack::Builder;
use Plack::Test;
use Scope::Container;

sub container {
    if ( my $container = scope_container('key') ) {
        return $container;
    }
    else {
        my $container = {};
        scope_container('key',$container);
        return $container;
    }
}

my $app = builder {
  enable 'Scope::Container';
  sub {
    my $env = shift;
    sub { 
        my $responder = shift;
        my $writer = $responder->(["200",["Content-Type"=>"text/plain"]]);
        my $val1 = container();
        $writer->write('');
        my $val2 = container();
        $writer->write("$val1 $val2");
        $writer->close;
    }
  }
};


test_psgi
    app => $app,
    client => sub {
        my $cb = shift;
        my $req = HTTP::Request->new(GET => "http://localhost/");
        my $res = $cb->($req);
        ok( $res->is_success );
        my @content = split / /, $res->content;
        ok( $content[0] );
        is( $content[0], $content[1] );

        my $req2 = HTTP::Request->new(GET => "http://localhost/");
        my $res2 = $cb->($req2);
        ok( $res2->is_success );
        my @content2 = split / /, $res2->content;
        ok( $content2[0] );
        isnt( $content2[0], $content[0]);

    };

done_testing();