Modernize the module

2 files changed, 8 insertions, 9 deletions

diff --git a/t/01-read.t b/t/01-read.t
index fa5a75b..5c15087 100644
--- a/t/01-read.t
+++ b/t/01-read.t
@@ -5,13 +5,12 @@ use Test;
 use lib "lib";
 
 use Config;
-use Config::Parser::toml;
 
 plan 4;
 
 my $config = Config.new();
 
-ok $config.read("t/files/config.toml"), "File reading throws no error";
+ok $config.read('t/files/config.toml'.IO), "File reading throws no error";
 
 subtest "Contents match" => {
     plan 2;
@@ -20,7 +19,7 @@ subtest "Contents match" => {
     is $config.get("header.b"), "b", "b = b";
 };
 
-ok $config.read("t/files/merge.toml"), "File merging throws no error";
+ok $config.=read('t/files/merge.toml'.IO), "File merging throws no error";
 
 subtest "Contents match after merging" => {
     plan 4;
diff --git a/t/02-write.t b/t/02-write.t
index 5eb7d92..7034302 100644
--- a/t/02-write.t
+++ b/t/02-write.t
@@ -1,18 +1,18 @@
 #! /usr/bin/env perl6
 
 use v6.c;
-use Test;
-use lib "lib";
 
 use Config;
-use Config::Parser::toml;
 use File::Temp;
+use Test;
+
+use Config::Parser::toml;
 
 plan 4;
 
 my $config = Config.new();
 
-$config.read({
+$config.=read({
     first => {
         a => "a",
         b => "b"
@@ -25,10 +25,10 @@ $config.read({
 
 my ($filename, $fh) = tempfile;
 
-ok $config.write($filename, "Config::Parser::toml"), "Write succeeded";
+ok $config.write($filename.IO, Config::Parser::toml), "Write succeeded";
 
 is slurp("t/files/write.toml"), slurp($filename), "Written config is correct";
 
-ok $config.write($filename, "Config::Parser::toml"), "Write over non-empty file";
+ok $config.write($filename.IO, Config::Parser::toml), "Write over non-empty file";
 
 is slurp("t/files/write.toml"), slurp($filename), "Written config is still correct";