### ----------------------------------------------------
### -- Pod::Utils
### -- Licenses: Artistic-2.0
### -- Authors: @Mouq, @coke, @hoelzro, @timo, @moritz, @JJ, @MasterDuke17, @zoffixznet, @antoniogamiz
### -- File: t/15-recurse-until-str.t
### ----------------------------------------------------
use v6.c;
use Test;

plan *;

use Pod::Utils;
use Pod::Utils::Build;

my $block         = Pod::Block::Para.new(contents => ["block"]);
my $complex-block = pod-block("one", pod-block("two"), pod-bold("three"));

is recurse-until-str("string")      , "string"      , "String not affected";
is recurse-until-str($block)        , "block"       , "Single block";
is recurse-until-str($complex-block), "onetwothree" , "Complex block";

done-testing;


