~ubuntu-branches/ubuntu/maverick/uim/maverick

« back to all changes in this revision

Viewing changes to sigscheme/test-c/test-storage-coll.c

  • Committer: Bazaar Package Importer
  • Author(s): Masahito Omote
  • Date: 2008-05-18 22:18:10 UTC
  • mfrom: (1.1.8 upstream)
  • mto: This revision was merged to the branch mainline in revision 5.
  • Revision ID: james.westby@ubuntu.com-20080518221810-4d2rd0ca18xnu8kc
Tags: 1:1.5.1-1
* New upstream release
* uim-qt3: Add uim inputcontext plugin for Qt3. And due to uim-*-qt are
  not supported in Qt4 for now officially, uim-*-qt are contained in
  this package.
* uim-qt: Depends uim-qt3 because of described above.
* libuim6: New package for syncing with upstream upgrade soversion.
* 05_qmake_bug_workaround.dpatch: patch for the workaround that qmake does
  not add link option against other libraries(e.g. -lX11) by default.

Show diffs side-by-side

added added

removed removed

Lines of Context:
38
38
#include <stdio.h>
39
39
#include <stdlib.h>
40
40
 
 
41
#include <sigscheme/config.h>
41
42
#if (!SCM_USE_CHAR || !SCM_USE_VECTOR)
42
43
#define TST_EXCLUDE_THIS
43
44
#endif
418
419
}
419
420
#endif /* use sscm extension mechanism */
420
421
 
421
 
#if SCM_USE_HYGIENIC_MACRO
422
422
#if SCM_USE_UNHYGIENIC_MACRO
423
423
#error "No test implemented."
424
424
#endif
425
425
 
426
426
TST_CASE(tst_15, "subpat")
427
427
{
 
428
#if SCM_USE_HYGIENIC_MACRO
428
429
    ScmObj obj;
429
430
#define SUBPAT_TST(tst, pat, meta)              \
430
431
    tst(obj, SUBPAT,                            \
433
434
 
434
435
    SUBPAT_TST(TST_INIT2, LIST_1(SCM_NULL), -1);
435
436
    SUBPAT_TST(TST_SET2, SCM_NULL, 5);
 
437
#endif /* SCM_USE_HYGIENIC_MACRO */
436
438
}
437
439
 
438
440
TST_CASE(tst_16, "far symbol")
439
441
{
 
442
#if SCM_USE_HYGIENIC_MACRO
440
443
    ScmObj obj;
441
444
#if SCM_USE_UNHYGIENIC_MACRO
442
445
#error "Packed env handling must be revised."
454
457
    FARSYMBOL_TST(TST_INIT2, SCM_SYM_QUOTE, null);
455
458
    FARSYMBOL_TST(TST_SET2, SCM_MAKE_FARSYMBOL(SCM_SYM_QUOTE, null),
456
459
                  scm_pack_env(env));
 
460
#endif /* SCM_USE_HYGIENIC_MACRO */
457
461
}
458
462
 
459
463
TST_CASE(hmacro, "hmacro")
460
464
{
 
465
#if SCM_USE_HYGIENIC_MACRO
461
466
    ScmObj obj;
462
467
    ScmObj env, rules;
463
468
 
488
493
    SCM_HMACRO_SET_ENV(obj, scm_pack_env(env));
489
494
    HMACRO_TST(TST2, rules, scm_pack_env(env),
490
495
               "after SET_ENV");
 
496
#endif /* SCM_USE_HYGIENIC_MACRO */
491
497
}
492
498
 
493
 
#endif /* use hygienic macro */
494
499
#endif /* !TST_EXCLUDE_THIS */
495
500
TST_LIST_BEGIN()
496
501
    TST_REGISTER(tst_1)