require 5;
# Time-stamp: "2003-10-14 18:48:09 ADT"
use strict;
use Test;

BEGIN { plan tests => 10 }

use RTF::Writer 1.10;
ok 1;

sub isbal ($) { (my $x = $_[0]) =~ tr/\{\}//cd; while($x =~ s/\{\}//g){;}; length($x) ? 0 : 1 }

foreach my $i (qw(png jpg)) {
  my $filename = "hypnocat2_$i.rtf";
  use File::Spec;
  $filename = File::Spec::->catfile( File::Spec::->curdir(), $filename);

  print "# Writing to $filename...\n";
  my $rtf = RTF::Writer->new_to_file($filename);
  $rtf->prolog( 'title' => "Greetings, $i hyoomon" );
  $rtf->number_pages;
  $rtf->paragraph(
    \'\fs40\b\i',  # 20pt, bold, italic
    "Hi there!"
  );

  my $imagepath;
  ok(
   -e(
    $imagepath = File::Spec::->catfile( File::Spec::->curdir(), 't', "hypnocat.$i")
   ) or -e(
    $imagepath = File::Spec::->catfile( File::Spec::->curdir(), "hypnocat.$i")
   )
   or 0
  );

  $rtf->paragraph(
    "Blah blah blah ",
    $rtf->image('filename' => $imagepath),
    " blah blah -- it's a $i!",
  );

  $rtf->paragraph("Here's a subsequent paragraph.");
  
  $rtf->close;
  ok 1;

  my $errorcount;

  undef $rtf;
  {
    print "# Now checking $filename...\n";
    open IN, $filename or die "Can't read-open $filename: $!";
    local $/;
    my $rtf = <IN>;
    close(IN);
    
    ok $rtf, '/\\\\pict/'  # simple sanity
     or ++$errorcount;
    ok isbal($rtf), 1, "$filename 's is unbalanced"
     or ++$errorcount;
  }
  $errorcount or unlink $filename;
}

print "# Byebye\n";
ok 1;