#! perl -w
use strict;

use lib "../..";
use CompareWebsPlugin;
use TWiki;

#package TWiki::Func;

#sub getPublicWebList {
#  return qw(MC SF); 
#}

#sub getTopicList {
#  my ($args) = @_;
#  if ($args eq "MC") {
#  	 return qw(MC1 MC2 MC3);
#  } else {
#     return qw(SF1 SF2 SF3);
#  } 
#}

#package main;

#print TWiki::Plugins::CompareWebsPlugin::compareWebs("   'webs'        =      'MC SF', startTable = 'Test of &37%\n', endTable='endTest`dir`', startRowSeparator=, endRowSeparator=&13;, rowLeader='&37;TOPIC%\t', startColumnSeparator='|   ', endColumnSeparator='  |', doesExistFormat=Y    ")."\n";
#print TWiki::Plugins::CompareWebsPlugin::compareWebs('   "webs"        =      "Test  Main     AI"   ')."\n";
#print TWiki::Plugins::CompareWebsPlugin::compareWebs("   webs        =      \"'Test'\"  'Main'     'AI'   ")."\n";
#print TWiki::Plugins::CompareWebsPlugin::compareWebs('   webs        =      "Test"  "Main"     "AI"   ')."\n";
print TWiki::Plugins::CompareWebsPlugin::compareWebs('   "webs"        =      Test  "Main"    AI   ')."\n";