File: missing-js-tests

package info (click to toggle)
nqp 2024.09%2Bdfsg-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 9,972 kB
  • sloc: java: 28,087; perl: 3,479; ansic: 451; makefile: 202; javascript: 68; sh: 1
file content (18 lines) | stat: -rwxr-xr-x 317 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!perl
use v5.12;
use warnings;
use File::Slurp qw(slurp);

my $tests = slurp('src/vm/js/bin/run_tests.pl'); 

my ($match) = $tests =~ /my \@nqp_tests = glob "(t\/nqp\/\{[0-9,]+\}\*)/;

my @tests = glob $match;

my %tests;
$tests{$_}++ for @tests;

my @all = <t/nqp/*.t>;
for (@all) {
    say $_ unless $tests{$_};
}