#!/usr/bin/env perl use strict; use warnings; use Test::More; use DDG::Test::Goodie; zci answer_type => 'ascii'; zci is_cached => 1; ddg_goodie_test( [qw( DDG::Goodie::HexToASCII )], 'ascii 0x7465ff7374' => undef, 'ascii 0x7465007374' => test_zci( 'test (ASCII)', structured_answer => { input => ['0x7465007374'], operation => 'Hex to ASCII', result => 'te[NUL]st' } ), 'ascii 0x74657374' => test_zci( 'test (ASCII)', structured_answer => { input => ['0x74657374'], operation => 'Hex to ASCII', result => 'test', } ), 'ascii 0x5468697320697320612074657374' => test_zci( 'This is a test (ASCII)', structured_answer => { input => ['0x5468697320697320612074657374'], operation => 'Hex to ASCII', result => 'This is a test', } ), 'ascii 0x466f7220736f6d6520726561736f6e2c2049206465636964656420746f2061736b20612073656172636820656e67696e6520746f20636f6e766572742068657820746f2041534349492e0d0a436f6f6c2c20746869732073656172636820656e67696e6520646f65732069742c20756e74696c20492072756e206f7574206f662073706163652e' => test_zci( 'For some reason, I decided to ask a search engine to convert hex to ASCII.Cool, this search engine does it, until I run out of ... (ASCII)', structured_answer => { input => [ '0x466f7220736f6d6520726561736f6e2c2049206465636964656420746f2061736b20612073656172636820656e67696e6520746f20636f6e766572742068657820746f2041534349492e0d0a436f6f6c2c20746869732073656172636820656e67696e6520646f65732069742c20756e74696c20492072756e206f7574206f662073706163652e' ], operation => 'Hex to ASCII', result => 'For some reason, I decided to ask a search engine to convert hex to ASCII.[CR][LF]Cool, this search engine does it, until I run out of …', }, ), ); done_testing;