#!/usr/bin/perl -w
# test_vimcolor.pl
use strict;
use CGI qw/:standard/;
use Text::VimColor;
use CodeSamples;   # contains code samples in C and Perl

my $csyntax = Text::VimColor->new(
    string   => $CodeSamples::ctext,
    filetype => 'c'
)or die("can't create C object ($!)\n");

my $perlsyntax = Text::VimColor->new(
    string   => $CodeSamples::perltext,
    filetype => 'perl'
)or die("can't create perl object ($!)\n");

my $fperlsyntax = Text::VimColor->new(
    file     => $0,
    filetype => 'perl'
)or die("can't create perl object ($!)\n");

print
    start_html(-title=>"Text::VimColor test",
               -style=>{'src'=>'light.css'}
              ),
    h2("C"),
    pre( $csyntax->html),
    hr,
    h2("Perl"),
    pre( $perlsyntax->html),
    hr,
    h2("Perl (file)"),
    pre( $fperlsyntax->html),
    hr,
    h2("CSS"),
    pre(Text::VimColor->new(file =>'light.css', filetype => 'css')->html),
    hr,
    h2("Perl (package)"),
    pre(Text::VimColor->new(file =>'CodeSamples.pm',  filetype => 'perl')->html),
    hr,
    h2("Perl (another package)"),
    pre(Text::VimColor->new(file =>'VimColorCache.pm',  filetype => 'perl')->html);