Embedix-DB

 view release on metacpan or  search on metacpan

DB.pm  view on Meta::CPAN

78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
    $edb->cloneDistro(board => 'mpc8260adsp');
 
updating a distro with new information
 
    my $apache_ecd = Embedix::ECD->newFromFile('apache.ecd');
    $edb->updateDistro(ecd => $apache_ecd);
 
deleting components from a distro
 
    $edb->deleteNode(name => 'busybox');
 
=head1 REQUIRES
 
=over 4
 
=item Embedix::ECD
 
This is needed to get data from ECD files into perl objects that can
then be inserted into a database.

t/01_pg.t  view on Meta::CPAN

64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
# updateDistro
my $ecd = Embedix::ECD->newFromFile('t/data/textutils.ecd');
eval { $edb->updateDistro(ecd => $ecd) };
ok($@ ? 0 : 1);
 
# see if update works by repeating the previous action
my $textutils = $ecd->Textprocessing->Tools->textutils;
$textutils->type('bool');
$textutils->default_value(1);
$textutils->prompt('busybox makes me jealous');
eval { $edb->updateDistro(ecd => $ecd) };
ok($@ ? 0 : 1);
 
# udpateDistro, yet again to see if the buildvars got in
$ecd = Embedix::ECD->newFromFile('t/data/tinylogin.ecd');
eval { $edb->updateDistro(ecd => $ecd) };
ok($@ ? 0 : 1);
 
# getNodePath
my $cheat = $dbh->selectall_arrayref("

t/data/textutils.ecd  view on Meta::CPAN

37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
        SRPM=textutils
        <SPECPATCH></SPECPATCH>
        <HELP>These are the GNU text processing utilities. Most of
        these programs have significant advantages over their Unix
        counterparts, such as greater speed, additional options,
        and fewer arbitrary limits.
 
        Busybox provides small, simple versions of many of these
        utilities. Consequently, most target systems only require
        busybox. You should provide textutils if the target system
        requires complete unix style textprocessing for the enduser.
        Textutils may be required to support other specific scripts
        or utilities.
        </HELP>
        <REQUIRESEXPR>
                (textutils == "CHILDREN_ENABLED")
        </REQUIRESEXPR>
 
<OPTION keep-cat>
        TYPE=bool



( run in 0.248 second using v1.01-cache-2.11-cpan-454fe037f31 )