anchor.diff:  
   foreign_key_test() ->
       "message_id" = foreign_key("Message").
  -
  -cached_re_test() ->
  -    {ok, RE1} = cached_re("Abcdefg", []),
  -    {ok, RE2} = cached_re("yuuuu", []),
  -    {ok, RE1_1} = cached_re("Abcdefg", []),
  -    true = (RE1 =:= RE1_1),
  -    false = (RE2 =:= RE1), 
  -    "QQQ?UUU" == re_replace( "QQQAbcdefgUUU", RE1_1, "?" ).
  
positive.code: -author('Luke Galea <luke@ideaforge.org>').
  -export([pluralize/1, singularize/1, camelize/1, lower_camelize/1, titleize/1, 
  	 capitalize/1, humanize/1, underscore/1, dasherize/1, tableize/1, moduleize/1,
  	 foreign_key/1, ordinalize/1, cached_re/2]).
  
  -include_lib("eunit/include/eunit.hrl").
  
  
negative.code: replace(Word, [] ) ->
      Word;
  replace(Word, [ {Regex, Replacement} | Remainder ] ) ->
      RE = re_compile( Regex ), 
      case re:run( Word, RE ) of
  	{ match, _ } ->
  	    re_replace( Word, RE, Replacement );
  	nomatch ->
  	    replace(Word, Remainder)
      end.
  
  %% Rules
  