#!/usr/bin/perl -w

use strict;
use warnings;

use Test::Most;

plan tests => 2;

use String::Comments::Extract;

my $re_with_quote = <<'__JS__';
	var re = /"/;
__JS__

my @comments;

lives_ok { @comments = String::Comments::Extract::JavaScript->collect($re_with_quote) }
	'Parse JavaScript with a quote in q regular expression';

ok(@comments == 0, 'No comments');

exit 0;