From c052d38e0b8fa4042025276d55ecbc7e0b5af35c Mon Sep 17 00:00:00 2001
From: Sandro Santilli <strk@keybit.net>
Date: Mon, 4 May 2015 18:08:02 +0200
Subject: [PATCH] Add relation sizes (main, toasts, indexes)

---
 tools/benchmark.pl | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/tools/benchmark.pl b/tools/benchmark.pl
index 964f210..d7e6c53 100755
--- a/tools/benchmark.pl
+++ b/tools/benchmark.pl
@@ -125,6 +125,21 @@ foreach $a (@ARGV) {
   print "\n[$tn:$col]\n";
 
   my $info = query(<<"EOF"
+select pg_size_pretty(pg_relation_size('${tn}')), -- main
+       -- toasts
+       pg_size_pretty(pg_table_size('${tn}')-pg_relation_size('${tn}')),
+       -- indexes
+       pg_size_pretty(pg_total_relation_size('${tn}')-pg_table_size('${tn}')),
+       -- total
+       pg_size_pretty(pg_total_relation_size('${tn}'))
+EOF
+  );
+  my @info = split '\|', $info;
+
+  print ' Relation size: ' . $info[0] . ' + ' . $info[1]
+      . ' + ' . $info[2] . ' = ' . $info[3] . " (M+T+I)\n";
+
+  $info = query(<<"EOF"
 SELECT CASE WHEN attstorage = 'm' THEN 'main'
             WHEN attstorage = 'e' THEN 'external'
             WHEN attstorage = 'p' THEN 'plain'
@@ -193,7 +208,7 @@ from \"${tn}\"
 EOF
   );
 
-  my @info = split '\|', $info;
+  @info = split '\|', $info;
   #print ' Info: ' . join(',', @info) . "\n";
   print ' Total patch column size: ' . $info[7] . "\n";
   print ' Patches: ' . $info[0] . "\n";