From bfd019e1c9272143a637747cf8dbd66774696483 Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Sun, 24 Apr 2011 21:41:30 -0700 Subject: [PATCH 1/1] DISPLAY FILE LABEL: Display in a more natural way. --- perl-module/t/Pspp.t | 4 +--- src/language/dictionary/sys-file-info.c | 6 ++---- tests/language/utilities/title.at | 12 +++--------- tests/perl-module.at | 12 +++--------- 4 files changed, 9 insertions(+), 25 deletions(-) diff --git a/perl-module/t/Pspp.t b/perl-module/t/Pspp.t index d93a2702..6e267f6f 100644 --- a/perl-module/t/Pspp.t +++ b/perl-module/t/Pspp.t @@ -185,9 +185,7 @@ name,Format: A20,,2 ,Display Alignment: Left,, ,Display Width: 20,, -File label: - -This is the file label +File label: This is the file label Documents in the active dataset: diff --git a/src/language/dictionary/sys-file-info.c b/src/language/dictionary/sys-file-info.c index 84a4d8e8..7b428df5 100644 --- a/src/language/dictionary/sys-file-info.c +++ b/src/language/dictionary/sys-file-info.c @@ -197,10 +197,8 @@ cmd_display (struct lexer *lexer, struct dataset *ds) tab_output_text (TAB_LEFT, _("The active dataset does not have a file label.")); else - { - tab_output_text (TAB_LEFT | TAT_TITLE, _("File label:")); - tab_output_text (TAB_LEFT | TAB_FIX, dict_get_label (dataset_dict (ds))); - } + tab_output_text_format (TAB_LEFT, _("File label: %s"), + dict_get_label (dataset_dict (ds))); } else { diff --git a/tests/language/utilities/title.at b/tests/language/utilities/title.at index 0d94385c..cd954f24 100644 --- a/tests/language/utilities/title.at +++ b/tests/language/utilities/title.at @@ -74,9 +74,7 @@ The last line should end with a period: . (Entered ) -File label: - -This is a test file label +File label: This is a test file label Documents in the active dataset: @@ -94,9 +92,7 @@ Line two (Entered ) -File label: - -This is a test file label +File label: This is a test file label Documents in the active dataset: @@ -138,8 +134,6 @@ document There should be another document now. (Entered ) -File label: - -This is a test file label +File label: This is a test file label ]) AT_CLEANUP diff --git a/tests/perl-module.at b/tests/perl-module.at index 9342bc35..308dd771 100644 --- a/tests/perl-module.at +++ b/tests/perl-module.at @@ -56,9 +56,7 @@ DISPLAY DICTIONARY. SHOW WEIGHT. ]) AT_CHECK([pspp -O format=csv dump-dict.sps], [0], - [File label: - -My Dictionary + [File label: My Dictionary Documents in the active dataset: @@ -151,9 +149,7 @@ name,Format: A20,,2 ,Display Alignment: Left,, ,Display Width: 20,, -File label: - -This is the file label +File label: This is the file label Documents in the active dataset: @@ -173,9 +169,7 @@ name,Format: A20,,2 ,Display Alignment: Left,, ,Display Width: 20,, -File label: - -This is the file label +File label: This is the file label Documents in the active dataset: -- 2.30.2