tracks/perl5/exercises/hello-world/hello-world.t in trackler-2.2.1.110 vs tracks/perl5/exercises/hello-world/hello-world.t in trackler-2.2.1.111
- old
+ new
@@ -1,16 +1,15 @@
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
-my $dir;
-use lib $dir = $FindBin::Bin; # Look for the module inside the same directory as this test file.
+use lib $FindBin::Bin; # Look for the module inside the same directory as this test file.
use JSON::PP;
my $exercise = 'HelloWorld'; # The name of this exercise.
my $test_version = 1; # The version we will be matching against the exercise.
-use Test::More tests => 4; # This is how many tests we expect to run.
+use Test::More tests => 3; # This is how many tests we expect to run.
use_ok $exercise or BAIL_OUT; # Check that the module can be use-d.
# If the exercise is updated, we want to make sure other people testing
# your code don't think you've made a mistake if things have changed!
@@ -29,29 +28,18 @@
}
my $C_DATA = do { local $/; decode_json(<DATA>); };
is $subs{hello}->($_->{input}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
-# Ignore this for your exercise! Tells Exercism folks when exercise cases become out of date.
-SKIP: {
- skip '', 1 unless $ENV{EXERCISM};
- TODO: {
- local $TODO = 'update canonical-data';
- is_deeply eval q{
- use Path::Tiny;
- decode_json path("$dir/../../problem-specifications/exercises/".path($dir)->basename.'/canonical-data.json')->realpath->slurp;
- }, $C_DATA, 'canonical-data';
- }
-}
-
__DATA__
{
"exercise": "hello-world",
- "version": "1.0.0",
+ "version": "1.1.0",
"cases": [
{
"description": "Say Hi!",
"property": "hello",
+ "input": {},
"expected": "Hello, World!"
}
]
}