root/lang/perl/Helper-Simple/trunk/t/01-helper-separate-files.t @ 21702

use Cwd qw/getcwd/;

BEGIN {
      use lib qw(./lib ./t/lib);
}

use MyHelper;
use Test::Base qw/no_plan/;

filters({
        i => ['eval'],
        o => ['eval'],
        }
);

run_compare i => 'o';

__END__
=== var
--- i
package MyHelper::Tmpl;
var
--- o
{
  hoge => 'MyHelper',
  var  => 'in MyHelper',
}
=== my_var
--- i
package MyHelper::Tmpl;
my_var;
--- o
{
  fuga => 'MyHelper::Tmpl',
  var  => 'test',
}
=== var
--- i
package MyHelper::Tmpl::Admin;
var
--- o
{
  hoge => 'MyHelper',
  fuga => 'MyHelper::Tmpl::Admin',
  var  => 'in MyHelper',
}
=== my_var
--- i
package MyHelper::Tmpl::Admin;
my_var
--- o
{
  admin  => 1,
}
=== camelize default
--- i
package MyHelper;
$_ = camelize
--- o
0
=== normalize default
--- i
package MyHelper;
$_ = normalize
--- o
1
=== camelize specified
--- i
package MyHelper::Doc::CameLize;
$_ = camelize
--- o
1
=== normalize specified
--- i
package MyHelper::Doc::CameLize;
$_ = normalize
--- o
0
=== inherited inherited
--- i
package MyHelper::Doc::CameLize::CaMeLiZe;
$_ = camelize
--- o
1
=== inherited inherited
--- i
package MyHelper::Doc::CameLize::CaMeLiZe;
$_ = normalize
--- o
0
=== template_tags
--- i
package MyHelper;
template_tags
--- o
{
  '.tt'  => '[% TAGS star - %]',
  '.tt2' => '[% TAGS star - %]',
  '.zip' => '',
  '.gz'  => '',
}
=== template_tags
--- i
package MyHelper::Js;
template_tags
--- o
{
  '.tt'  => '[% TAGS star - %]',
  '.tt2' => '[% TAGS star - %]',
  '.zip' => '',
  '.gz'  => '',
}
=== template_option
--- i
package MyHelper;
template_option
--- o
{}
=== template_option in sub module
--- i
package MyHelper::Js;
template_option
--- o
{}
=== here
--- i
package MyHelper;
ref here;
--- o
'MyHelper'
=== here
--- i
package MyHelper::Tmpl;
ref here;
--- o
'MyHelper::Tmpl'
=== default_var
--- i
package MyHelper;
default_var;
--- o
use Config;
{
  appname    => 'myhelper',
  root_class => 'MyHelper',
  startperl  => $Config{startperl},
}
=== default_var in sub module
--- i
package MyHelper::Tmpl;
default_var;
--- o
{
  appname    => 'myhelper',
  root_class => 'MyHelper',
  startperl  => $Config{startperl},
}
=== pkg
--- i
package MyHelper;
ref here->pkg('MyHelper::Js')
--- o
'MyHelper::Js'
=== dir Doc::CameLize
--- i
package MyHelper::Doc::CameLize;
here->dir =~ m{.+(doc/.+$)};
$1;
--- o
'doc/CameLize/'
=== dir Doc::CameLize::CaMeLiZe
--- i
package MyHelper::Doc::CameLize::CaMeLiZe;
here->dir =~ m{.+(doc/.+$)};
$1;
--- o
'doc/CameLize/CaMeLiZe/'
=== dir DocCamel
--- i
package MyHelper::DocCamel;
here->dir =~ m{.+(doccamel/$)};
$1;
--- o
'doccamel/'
=== dir doc
--- i
package MyHelper::Doc;
here->dir =~ m{.+(doc/$)};
$1;
--- o
'doc/'