1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#!/usr/bin/perl -w
# DESCRIPTION: Perl ExtUtils: Type 'make test' to test this package
#
# Copyright 2000-2024 by Wilson Snyder. This program is free software;
# you can redistribute it and/or modify it under the terms of either the GNU
# Lesser General Public License Version 3 or the Perl Artistic License Version 2.0.
use IO::File;
use strict;
use Test::More;
BEGIN { plan tests => 1+6*3 }
BEGIN { require "./t/test_utils.pl"; }
#######################################################################
package MyPreproc;
use Verilog::Preproc;
use base qw(Verilog::Preproc);
sub comment { print $::OUTTO $_[0]->filename,":",$_[0]->lineno,": COMMENT: $_[1]\n";
$_[0]->unreadback(' /*CMT*/ '); }
sub def_substitute {
my ($self,$out) = @_;
# Only do this for some tests, as it makes the output look strange
if ($self->{_test_def_substitute}
&& $out !~ /^".*"$/ # And don't corrupt `include test
&& $out !~ /\.v/ # Nor things that look like filenames
&& $out !~ /NODS/){
return "DS_".$out; # Must use _ as need identifier character
} else {
return $out;
}
}
package main;
#######################################################################
sub prep {
my $opt = new Verilog::Getopt;
$opt->parameter (qw(
+incdir+verilog
+define+PREDEF_COMMAND_LINE
));
return $opt;
}
use Verilog::Getopt;
ok(1, "use Verilog::Getopt");
use Verilog::Preproc;
ok(1, "use Verilog::Preproc");
test ('', keep_comments=>1, line_directives=>0, _no_line_numbering=>1); # Makes "diff" cleaner
test ('_on', keep_comments=>1,);
test ('_syn', keep_comments=>1, keep_whitespace=>1, synthesis=>1);
test ('_nows', keep_comments=>0, keep_whitespace=>0, synthesis=>1);
test ('_sub', keep_comments=>'sub', _test_def_substitute=>1);
test_getall ();
sub test {
my $id = shift;
my @args = @_;
my $opt = prep();
my $pp = new MyPreproc (options=>$opt, @args);
ok(1, "new${id}");
#$pp->debug(9);
$pp->open("inc1.v");
$pp->open("inc2.v");
$pp->open("inc_ifdef.v");
$pp->open("inc_nonl.v");
$pp->open("inc_def09.v");
my $fhout = IO::File->new(">test_dir/inc${id}.out");
$::OUTTO = $fhout;
while (defined(my $line = $pp->getline())) {
if ($pp->{_no_line_numbering}) {
print $fhout $pp->filename.": ".$line;
} else {
print $fhout $pp->filename.":".$pp->lineno.": ".$line;
}
}
$fhout->close();
ok(1, "parsed${id}");
ok(files_identical("test_dir/inc${id}.out", "t/30_preproc${id}.out"), "diff${id}");
}
sub test_getall {
my $id = shift;
my @args = @_;
my $a;
my $acalls = 0;
{
my $pp = new MyPreproc (options=>prep(), @args);
$pp->open("inc1.v");
while (defined(my $line = $pp->getline)) {
$a .= $line;
$acalls++;
}
}
my $b;
my $bcalls = 0;
{
my $pp = new MyPreproc (options=>prep(), @args);
$pp->open("inc1.v");
while (defined(my $all = $pp->getall)) {
$b .= $all;
$bcalls++;
}
}
is($a, $b);
ok($acalls > $bcalls, "getall does same callbacks");
}
|
