#!/usr/bin/perl

package bookfinder;

use Test::More tests=>6;

use strict;
use warnings;

require "index.cgi";

is("hello, world", escape_special_char("hello, world"), "normal string");
is("hello\\ world", escape_special_char("hello\\ world"), "single backslash");
is("hello\\ world", escape_special_char("hello\\\\ world"), "double backslash");
is(qq{hello"world}, escape_special_char(qq{hello"world}), "unescaped quote");
is(qq{hello\\"world}, escape_special_char(qq{hello\\\\"world}), "double backslash and unescaped quote");
is(qq{hello"world}, escape_special_char(qq{hello\\"world}), "escaped quote");