From 0d1737fb2ab52cf56ddf2146e5ff910dfc66d7b4 Mon Sep 17 00:00:00 2001
From: Patrick Spek
Date: Sun, 12 Jul 2020 10:37:34 +0200
Subject: Modernize the module
---
t/02-write.t | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
(limited to 't/02-write.t')
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";
--
cgit v1.1