From bd3bc6769547e89dc5d3e255aa4babc2cc5ffe48 Mon Sep 17 00:00:00 2001 From: Patrick Spek Date: Sat, 4 Jul 2020 13:46:25 +0200 Subject: Overhaul Config to 3.0.0 --- t/06-deduce-parser.t | 38 -------------------------------------- 1 file changed, 38 deletions(-) delete mode 100644 t/06-deduce-parser.t (limited to 't/06-deduce-parser.t') diff --git a/t/06-deduce-parser.t b/t/06-deduce-parser.t deleted file mode 100644 index d1c065a..0000000 --- a/t/06-deduce-parser.t +++ /dev/null @@ -1,38 +0,0 @@ -#! /usr/bin/env perl6 - -use v6.c; -use Test; - -use Config; - -plan 4; - -my Config $config = Config.new(); - -subtest "Unknown parser type" => { - plan 1; - - is $config.get-parser-type("config"), "", "Type for plain file without extension"; -}; - -subtest "Check parser type by file extension" => { - plan 2; - - is $config.get-parser-type("config.yaml"), "yaml", "Should return extension"; - is $config.get-parser-type("config.TOML"), "toml", "Should return lower-cased extension"; -}; - -subtest "Check parser type for edge-cases defined in get-parser-type" => { - plan 1; - - is $config.get-parser-type("config.yml"), "yaml", "yml --> yaml"; -}; - -subtest "Returns correct fully qualified module name" => { - plan 4; - - is $config.get-parser("config"), "Config::Parser::", "Empty parser on unknown type"; - is $config.get-parser("config.yaml"), "Config::Parser::yaml", "Extension when available"; - is $config.get-parser("config.TOML"), "Config::Parser::toml", "Lowercased extension"; - is $config.get-parser("config", "Config::Parser::NULL"), "Config::Parser::NULL", "Given string"; -}; -- cgit v1.1