[Fencommits] fenserve: add TestSHA1.hs for profiling

[Benja Fallenstein]

Sat Mar 31 21:13:28 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * add TestSHA1.hs for profiling
diff -rN -u old-fenserve/TestSHA1.hs new-fenserve/TestSHA1.hs
--- old-fenserve/TestSHA1.hs	1970-01-01 02:00:00.000000000 +0200
+++ new-fenserve/TestSHA1.hs	2007-03-31 21:13:35.000000000 +0300
@@ -0,0 +1,23 @@
+
+-- Copyright (c) 2006-2007, Benja Fallenstein, Tuukka Hastrup
+-- This file is part of Fenfire.
+-- 
+-- Fenfire is free software; you can redistribute it and/or modify it under
+-- the terms of the GNU General Public License as published by
+-- the Free Software Foundation; either version 2 of the License, or
+-- (at your option) any later version.
+-- 
+-- Fenfire is distributed in the hope that it will be useful, but WITHOUT
+-- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+-- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
+-- Public License for more details.
+-- 
+-- You should have received a copy of the GNU General
+-- Public License along with Fenfire; if not, write to the Free
+-- Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+-- MA  02111-1307  USA
+
+import qualified Data.ByteString as B
+import SHA1
+
+main = putStrLn $ sha1 (B.replicate 300000 0)