#!/usr/bin/perl -w

use lib '.'; use lib 't';
use WMTest; webmake_t_init("binarycontent");
use Test; BEGIN { plan tests => 2 };

# ---------------------------------------------------------------------------

$file = q{
  <webmake>
  <content name="foo" format="image/gif" asis=true src="data/test.gif">
  </content>
  <out file="log/binarycontent.gif" format="image/gif">${foo}</out>
  <out file="log/binarycontent.html"></out>
  </webmake>
};

%patterns = (

);

# ---------------------------------------------------------------------------

wmfile ($file);
ok (wmrun ("-F -f log/test.wmk", \&patterns_run_cb));
ok_all_patterns();
system ("cmp log/binarycontent.gif data/test.gif");
ok (($? >> 8) == 0);

