The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use t::TestJemplate tests => 1;

filters { 'tt' => ['parse_lite', 'X_line_numbers'] };
run_is 'tt' => 'js';

__END__

=== SWITCH/CASE Directives
--- tt
Foo
[%- SWITCH foo -%]
    [%- CASE 'Bar' -%]
        [%- 'Bar' -%]
    [%- CASE DEFAULT -%]
        [%- 'Baz' -%]
[%- END -%]
Zot
--- js
output += 'Foo';
//line X "(unknown template)"

    switch(stash.get('foo')) {
case 'Bar':
//line X "(unknown template)"
output += 'Bar';
break;

default:
//line X "(unknown template)"
output += 'Baz';
break;

    }


output += 'Zot\n';