From: Tony Cook <tony@develop=help.com>
Date: Sun, 6 May 2001 07:33:15 +0000 (+0000)
Subject: simple benchmark for image copying
X-Git-Tag: Imager-0.48^2~691
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/64100ee25c19df23867c8198453d810e248b8418

simple benchmark for image copying
---

diff --git a/bench/copy.bench b/bench/copy.bench
new file mode 100644
index 00000000..045fc464
--- /dev/null
+++ b/bench/copy.bench
@@ -0,0 +1,10 @@
+#!perl -w
+use Imager qw(:all);
+use Benchmark;
+
+# a basic benchmark to test how much faster it is to work line by line
+$im1 = Imager::ImgRaw::new(200,200,3);
+$im2 = Imager::ImgRaw::new(200,200,3);
+
+timethese(-5,
+	{ copy => 'Imager::i_copy($im2, $im1)' });