From 5ad3391be259b6d37678115ab119f3c06e810e43 Mon Sep 17 00:00:00 2001
From: Ronaldo Mercado <ronaldo.mercado@diamond.ac.uk>
Date: Thu, 27 May 2010 14:03:17 +0100
Subject: [PATCH] create test cases from I02 beamline

---
 src/cap5/test-cases.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 src/cap5/test-cases.pl

diff --git a/src/cap5/test-cases.pl b/src/cap5/test-cases.pl
new file mode 100644
index 000000000..118f5d808
--- /dev/null
+++ b/src/cap5/test-cases.pl
@@ -0,0 +1,11 @@
+grep record BL02I-MO-IOC-02.db |\
+grep -v '^#' |\
+perl -e '
+%h = (); 
+while(<>){ 
+   @a = split /,/; 
+   $a[0] =~ s/record\(//; 
+   $h{$a[0]}=$a[1]; 
+} 
+print %h;'
+