#!/usr/bin/env perl use strict; use warnings; use Test::More; use DDG::Test::Goodie; use utf8; zci answer_type => 'idn'; zci is_cached => 1; ddg_goodie_test( [qw( DDG::Goodie::IDN )], 'idn exämple.com' => test_zci('Encoded IDN: xn--exmple-cua.com'), ######### 'internationalize domain exämple.com' => test_zci('Encoded internationalized domain: xn--exmple-cua.com'), 'idn xn--exmple-cua.com' => test_zci('Decoded IDN: exämple.com'), 'international domain xn--exmple-cua.com' => test_zci('Decoded international domain: exämple.com'), 'internationalized domain xn--exmple-cua.com' => test_zci('Decoded internationalized domain: exämple.com'), ); done_testing;