[Module-build-checkins] Module-Build/t mbyaml.t,NONE,1.1 metadata.t,1.14,1.15

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21878/t

Modified Files:
	metadata.t 
Added Files:
	mbyaml.t 
Log Message:
Include our own YAML work-alike

--- NEW FILE: mbyaml.t ---
#!/usr/local/bin/perl -w

use Test::More qw(no_plan);
use lib "lib";
use lib "../lib";

my ($dir);
$dir = ".";
$dir = "t" if (-d "t");

{
  use_ok("Module::Build::YAML");
  my ($expected, $got, $var);
  $var = {
          'resources' => {
                           'license' => 'http://opensource.org/licenses/artistic-license.php'
                         },
          'meta-spec' => {
                           'version' => '1.2',
                           'url' => 'http://module-build.sourceforge.net/META-spec-v1.2.html'
                         },
          'generated_by' => 'Module::Build version 0.2709',
          'version' => '0.13',
          'name' => 'js-app',
          'dynamic_config' => '1',
          'author' => [
                        '"Stephen Adkins" <spa...@gm...>'
                      ],
          'license' => 'lgpl',
          'build_requires' => {
                                'App::Build' => '0',
                                'File::Spec' => '0',
                                'Module::Build' => '0'
                              },
          'provides' => {
                          'JavaScript::App' => {
                                                 'version' => '0',
                                                 'file' => 'lib/JavaScript/App.pm'
                                               }
                        },
          'requires' => {
                          'App::Options' => '0'
                        },
          'abstract' => 'A framework for building dynamic widgets or full applications in Javascript'
        };
  $expected = <<EOF;
---
abstract: A framework for building dynamic widgets or full applications in Javascript
author:
  - '"Stephen Adkins" <spadkins\@gmail.com>'
build_requires:
  App::Build: 0
  File::Spec: 0
  Module::Build: 0
dynamic_config: 1
generated_by: Module::Build version 0.2709
license: lgpl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.2.html
  version: 1.2
name: js-app
provides:
  JavaScript::App:
    file: lib/JavaScript/App.pm
    version: 0
requires:
  App::Options: 0
resources:
  license: http://opensource.org/licenses/artistic-license.php
version: 0.13
EOF
    $got = &Module::Build::YAML::Dump($var);
    is($got, $expected, "Dump(): single deep hash");

  $expected = <<EOF;
---
name: js-app
version: 0.13
author:
  - '"Stephen Adkins" <spadkins\@gmail.com>'
abstract: A framework for building dynamic widgets or full applications in Javascript
license: lgpl
resources:
  license: http://opensource.org/licenses/artistic-license.php
requires:
  App::Options: 0
build_requires:
  App::Build: 0
  File::Spec: 0
  Module::Build: 0
dynamic_config: 1
provides:
  JavaScript::App:
    file: lib/JavaScript/App.pm
    version: 0
generated_by: Module::Build version 0.2709
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.2.html
  version: 1.2
EOF
    $var->{_order} = [qw(name version author abstract license resources requires build_requires dynamic_config provides)];
    $got = &Module::Build::YAML::Dump($var);
    is($got, $expected, "Dump(): single deep hash, ordered");

    $var = [
        "e",
        2.71828,
        [ "pi", "is", 3.1416 ],
        { fun => "under_sun", 6 => undef, "more", undef },
    ];
    $expected = <<EOF;
---
e
---
2.71828
---
- pi
- is
- 3.1416
---
6: ""
fun: under_sun
more: ""
EOF
    $got = &Module::Build::YAML::Dump(@$var);
    is($got, $expected, "Dump(): multiple, various");

    $expected = <<EOF;
---
- e
- 2.71828
-
  - pi
  - is
  - 3.1416
-
  6: ""
  fun: under_sun
  more: ""
EOF
    $got = &Module::Build::YAML::Dump($var);
    is($got, $expected, "Dump(): single array of various");

    my $y = Module::Build::YAML->new();
    $got = $y->Dump($var);
    is($got, $expected, "Dump(): single array of various (OO)");
}



Index: metadata.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/metadata.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- metadata.t	20 Jan 2006 14:29:14 -0000	1.14
+++ metadata.t	21 Mar 2006 04:51:35 -0000	1.15
@@ -2,7 +2,7 @@
 
 use strict;
 use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
-use MBTest tests => 46;
+use MBTest tests => 43;
 
 use Cwd ();
 my $cwd = Cwd::cwd;
@@ -556,15 +556,6 @@
 $mb = new_build();
 is_deeply($mb->find_dist_packages, {});
 
-
-{
-  # Put our YAML escaper through a few tests.  This isn't part of the M::B API.
-  my $yq = sub {Module::Build->_yaml_quote_string(@_)};
-  like $yq->(''), qr{^ (['"]) \1 $}x;
-  is $yq->('Foo "bar" baz'), q{'Foo "bar" baz'};
-  is $yq->("Foo 'bar' baz"), q{"Foo 'bar' baz"};
-}
-
 ############################################################
 # cleanup
 chdir( $cwd ) or die "Can't chdir to '$cwd': $!";