File: directive-define.t

package info (click to toggle)
libmakefile-dom-perl 0.004-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 616 kB
  • ctags: 535
  • sloc: perl: 6,552; makefile: 2
file content (35 lines) | stat: -rw-r--r-- 817 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
use t::GmakeDOM;

plan tests => blocks() * 2;

run_tests;

__DATA__

=== TEST 1: multi-line var assignment (the 'define' directive)
--- src

define remote-file
  $(if $(filter unix, $($1.type)), \
    /net/$($1.host)/$($1.path), \
    //$($1.host)/$($1.path))
endef

--- dom
MDOM::Document::Gmake
  MDOM::Directive
    MDOM::Token::Bare         'define'
    MDOM::Token::Whitespace           ' '
    MDOM::Token::Bare         'remote-file'
    MDOM::Token::Whitespace           '\n'
  MDOM::Unknown
    MDOM::Token::Bare             '  '
    MDOM::Token::Interpolation '$(if $(filter unix, $($1.type)), \\n    /net/$($1.host)/$($1.path), \\n    //$($1.host)/$($1.path))'
    MDOM::Token::Whitespace           '\n'
  MDOM::Directive
    MDOM::Token::Bare         'endef'
    MDOM::Token::Whitespace           '\n'