The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl -w
; use strict

; BEGIN{ chdir './t' }

; use Test::More;
; eval "use CGI::Builder::DFVCheck"
; plan skip_all => "CGI::Builder::DFVCheck is not installed" if $@

; plan tests => 2
; require 'TestD.pm'


; my $ap1 = TestDFV->new()
; my $o1 = $ap1->capture('process')
; ok(  $$o1 =~ /start--><span.+<--end/i )

; my $ap2 = TestDFV->new(page_name => 'dfv')
; my $o2 = $ap2->capture('process')
; ok(  $$o2 =~ /start--><--end/i )