Index: /trunk/bin/fb-cgi.pl
===================================================================
--- /trunk/bin/fb-cgi.pl	(revision 8)
+++ /trunk/bin/fb-cgi.pl	(revision 9)
@@ -7,5 +7,6 @@
 my $q = CGI->new;
 
-my $src_file = get_src_file($q->param('form_id'));
+my $form_id = $q->param('form_id');
+my $src_file = get_src_file($form_id);
 
 my $parser = Text::FormBuilder->new;
@@ -16,5 +17,5 @@
     # call storage function
 
-    my $plugin = 'DumpParams';
+    my $plugin = 'StoreSQLite';
     
     eval "use $plugin;";
@@ -23,5 +24,5 @@
 
     # plugin process method should return a true value
-    if ($plugin->process($q, $form)) {
+    if ($plugin->process($q, $form, $form_id)) {
         # show thank you page
     } else {
@@ -37,4 +38,5 @@
 sub get_src_file {
     my $form_id = shift;
-    return "$form_id.txt";
+    my $form_spec_path = 'F:/Projects/SurveyMaker/form_specs';
+    return "$form_spec_path/$form_id.txt";
 }
Index: /trunk/t/Text-FormBuilder.t
===================================================================
--- /trunk/t/Text-FormBuilder.t	(revision 8)
+++ /trunk/t/Text-FormBuilder.t	(revision 9)
@@ -6,6 +6,6 @@
 # change 'tests => 1' to 'tests => last_test_to_print';
 
-use Test::More tests => 1;
-BEGIN { use_ok('Text::FormBuilder') };
+use Test::More tests => 4;
+BEGIN { use_ok('Text::FormBuilder'); };
 
 #########################
@@ -14,2 +14,8 @@
 # its man page ( perldoc Test::More ) for help writing this test script.
 
+my $p = Text::FormBuilder->new;
+isa_ok($p, 'Text::FormBuilder', 'new parser');
+isa_ok($p->parse_text('')->build->form, 'CGI::FormBuilder',  'generated CGI::FormBuilder object');
+
+my $p2 = Text::FormBuilder->parse_text('');
+isa_ok($p2, 'Text::FormBuilder', 'new parser (from parse_text as class method)');